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Guida all’input dei programmi sullo ZX Spectrum 



le "parole ' comprese tra parentesi graffe indicano i caratteri grafia p'e 
definiti (G). il tosto (numer?.seguente laG). la necessità di premere il tosto 
insieme a CAPS SHIFT (eventuale 5 precedente la G) e il numero di npet 
zan del tosto richieste (eventuale numero oli'in no della parola ') I co 
ratten grafia defmti dal programmo sono invece indiCav da lettere mou¬ 
se o/e (corrispondenti al tasto da usare) sottolineate 


leggete 


Quando 


(Gl) 
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(G 6 ) 
(G 7 ) 
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Simbolo grafico 
definito nel 
programma in uso. 
• 



Guida per l’input dei programmi versioni VIC IO e €04 


Notate che i listati contengono "parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 
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Piramide di numeri 


Eccovi un gioco nel quale siete in gara contro 
il tempo e la pazienza: il suo nome è ‘pirami¬ 
de di numeri' ma potreste presto ribattezzar¬ 
lo tortura diabolica' oppure rompicapo 
maledetto ' 

Ecco come funziona: 

Vi verrà presentata una lista di numeri sem¬ 
pre crescente a partire da una sola cifra; la 
lunghezza del numero aumenterà costruendo, 
via via, una piramide di numeri rovesciata. Sco¬ 
po del gioco è di ricordarli e di riscriverli poiché 
resteranno visibili solo per pochi attimi. Se in¬ 
dovinate i numeri proseguirete al livello inferiore 


50 HOME : DIM A*<20>,AA*(20> 

55 FOR I = 1 TO 40 :B* = 6* ♦ “ - 
: NEXT 

75 DH* = ; FOR I = i TO 4ù:DH* 

= DH* ^ NEXT I 

80 AS* = FÙR I = 1 TO 39:AS* 

= AS* ♦ "*": NEXT I 
35 G03UB 36Ù0 
90 A4* = AS* 

94 GOTO 250 

95 PM* =•<< PIRAMIDE 

DI NUMERI > > - 

100 VTAB Ss HTAB 1: PRINT A4* 

110 VTAB 16: HTAb 1: PRINT A4* 

120 FOR U * 9 TO 15 

125 VTAB U: HTAB 1: PRINT UTAB 

W: HTAB 40: PRINT NEXT 

U 

200 VTAB 14: HTAB 8: PRINT "(QUA 

LSIASI TASTO PER CONTINUARE) 

•• 

210 VTAB 11: HTAB 16; PRINT " PI 

ramide - 

215 FOR I = 1 TO 350: NEXT 
220 VTAB 11: HTAB lo: INVERSE : PRINT 
“ INDOVINATO ": NORMAL 
225 FOR I = 1 TO 350: NEXT 
230 X = PEEK < - 16384): POKE - 
16368,0: IF X < *127 THEN 

210 

250 HOME 

275 VTAB 1: HTAB 1: PRINT PM* 

280 VTAB 10: HTAB 1: PRINT A4*: VTAB 
17: HTAB 1 : PRINT A4* 

290 FOR FG = 1 1 TO 16: VTAb FG: HTAB 
1: PRINT ; VTAB FG: HTAB 
40: PRINT l NEXT FG 
410 VTAB 14: HTAB 2: PRINT LEFT* 


dove apparirà una stringa di numeri più lun¬ 
ga. Non dimenticate che, a seconda del livello 
di gioco scelto, avete un tempo limitato e che 
dovete cercare di dare le risposte giuste nel più 
breve tempo possibile. Il tasto ESC vi permet¬ 
terà di rivedere la stringa penalizzando però 
il vostro punteggio. Il gioco continua finché non 
avrete sbagliato un numero oppure avrete 
esaurito il tempo a vostra disposizione. 

A seconda del livello di difficoltà che scegliere¬ 
te. avrete dai IO ai 90 secondi di tempo a vo¬ 
stra disposizione. Buona fortuna! 


< B*,38): UTAB 15: HTAB 2: PRINT 
LEFT* < B*,38 > 

415 UTAB 13: HTAb 5: PRINT “PREM 
I UN TASTO PER CONTINUARE - 
425 POKE - 1o3o8,0 : WaIT - 163 
84,128 

430 X = PEEK ( - 16384): PUKE - 
1ó3o3,0 
1000 HOME 
1004 CT = 0 

1ùu5 UTAG 1: HTAB 1: PRINT PM* 

1010 UTAB 3: HTAB 3: INVERSE : PRINT 
“SCEGLI UN LIVELLO DI DIFFIC 
OLTA' ": NORMAL 
1012 > = 5 

1015 FGR 1 * 1 Tu 9: VTAB X: HTAB 
7 : x = x ♦ 2 

1025 PRINT I ;LV*U ) : IF I = 

9 THEN HTAB 10: PRINT “hVAN 
2ATA 

1035 NEXT I 
1050 VTAB 24: HTAB 20 
1055 A* = GET Af: 1F A* = ““ THEN 

1055 

Ì060 h = VhL <A* » : IF A <. l UR A 
> 9 THEN 1050 

1065 X = 3 ♦ (2 « A>: VTAB X: HTAB 
2: FLASH : PRINT • — > ";A;“ 

. “;LV*<A> » IF A = 9 THEN VTAB 
X ♦ 1 : HTAB 10: PRINT “AVANZ 
ATA “ 

1070 NORMAL : FOR I = 1 TO 2000: 

NEXT 1:NS « <10 - A) * 10:D 
F = A 

1090 HOME : VTAB 1: HTAB 1: PRINT 
PM* 

1100 VTAB 7: HTAB 5: PRINT LEFT* 

<AS*,30):L* = LV*<A): IF A = 
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9 THEN L* » "VISITOR - 
1105 FOR I = 1 TO 8: HTAB 5: PRINT 
LEFT* < B*,28): NEXT 
Is HTAB 5; PRINT LEFT* <AS* 

,30) 

1110 VTAB 9: HTAB 18s PRINT -OK, 

■ 

1112 VTAB 11 :L = LEN <L*):L = INT 
<<30 - L) / 2): HTAB L «• 5: 
INVERSE : PRINT L*: NORMAL 
1115 VTAB 13: HTAB 7: PRINT "HAI 

ESATTAMENTE ";: INVERSE : PRINT 
NS;" SECONDI - : NORMAL 
1120 VTAB 15: HTAB 9: PRINT -PER 
FINIRE LA PIRAMIDE - 
1125 VTAB 20: HTAB 5: PRINT -PRE 
MI UN TASTO PER INIZIARE 
% 

1130 A» = "•i GET A*: IF A» = THEN 
1 130 

1150 HOME : VTAB li HTAB 2: PRINT 
PM* 

1170 VThB 2: HTAB 1: PRINT LEFT* 
<AS*,39); 

1175 FOR I * 1 TO 21I VTAB 2 ♦ I 
: HTAB ls PRINT HTAB 3 

9: PRINT NEXT I: HTAB 

1: PRINT LEFT* <AS*,39); 

1180 VTAB 21: HTAB 10: PRINT LEFT* 
<AS*,2l) 

1185 HTAB IO: PRINT LEFT* < 

B*,19); 

1200 GOSUB 5000 

1205 PRINT CHR* <7): PRINT CHR* 

< 7) 

1207 VTAB 24: HTAB 1: PRINT LEFT* 

<B*,38);: VTAB 22: HTAB 14: PRINT 
LEFT* (6* ,10) 

1210 FOR G « 1 TO 17 

1211 T* = "":TT* * "":Ti* = "":T2 
* * “ “ : G* = " • 

1214 VTAB 5: HTAB 8: PRINT G; 

1215 FOR R = 1 TO LEN <A*<.G>) 

1220 T* = MID* <A*<Q),R,1> ♦ CHR* 

(32) 

1230 TT* = TT* ♦ T*: NEXT R 
1240 AA*<G) * TT* 

1250 VTAB G ♦ 2:HL ■ LEN <TT*): 

H = INT < <40 - HL) / 2) ♦ 1 
: HTAB H: PRINT TI* 

1255 FOR I * 1 TO <1500 ♦ <<DF - 
9) * 100)): NEXT 
1257 CT * CT ♦ 700 

1260 VTAB Q ♦ 2: HTAB H: PRINT LEFT* 
<B*,HL) 

1265 GOSUB 7000 

1268 VTAB 22: HTAB 12: PRINT “TE 
MPO RIMASTO :*; 

1269 NT = NS # 1000 

1270 CT « CT ♦ 58: VTAB 22: HTAB 
27: PRINT INT <NS - CT / 10 
00);- -;: IF CT > NT THEN 89 
90 

1271 IF PEEK < - 16384) < 128 THEN 
1270 

1272 X7. = PEEK < - 16384) - 128: 

POKE - 16368,0 

1274 IF XX < 0 THEN 1270 

1275 IF XX = 27 THEN GOSUB 5990 


: GOTO 1211 

1276 IF XX < 48 OR XX > 57 THEN 
1270 

1277 FOR U = 1 TO 7:WW = PEEK < 

- 16336): NEXT 

1273 PRINT CHR* <7) 

1279 CT «= CT ♦ 180 

1280 A* = CHR* < XX):G* = 6* ♦ A* 

: IF LEN <G*) * G THEN 1295 

1290 GOTO 1270 
1295 Tl* = •• :T2* » “ " 

1300 FOR R = l TO LEN <A*<Q)) 

1305 Tl* - MID* < G*,R,1) ♦ CHR* 

(32):T2* = T2* ♦ Tl* 

1310 NEXT R 

1315 VTAB G ♦ 2: HTAB H: PRINT T 

2* 

1320 IF G* = A*< G) THEN PRINT CHR* 
< 7): GOSUB 6020 

1330 IF G* < > A*< G) THEN VTAB 

22: HTAB 1l: FOR I * 1 TO 5: 

PRINT CHR* < 7);i NEXT : PRINT 
“ SBAGLIATO. PERDI!-;: GOTO 
9000 

1500 G* = NEXT Q 

1505 GAME = SC 

1510 VTAB 22: HTAB 11: PRINT - 

YOU DID IT! - : FOR X - 1 TO 
1500: NEXT : GOTO 1000 
3570 PRINT :CL = LEN <C*): IF C 

L > =39 THEN PRINT C*: RETURN 

3575 CL = <40 - LEN <C*)) / 2: PRINT 
LEFT* (B*,CL) ♦ C* 

3580 RETURN 

3600 FOR I = 1 TO 9: READ LV*<I) 

: NEXT I : RETURN 

3605 DATA - LATTANTE- BAMBINEL 
LO" 

3610 DATA “SCUOLA MEDIA-,-QUAS 
I DIPLOMATO" 

3615 DATA "STUDENTE DI MATEMAT 
ICA", "LAUREA CON LODE" 

3620 DATA "PRODI Gl 0" GENI 0 DE 
L COMPUTER" 

3630 DATA "VISITOR DI UNA CIV 
ILTA' " 

5000 REM ** GENERATORE DI NUME 
RI CAUSALI ** 

5005 NT* = "• 

5010 FOR J = 1 TO 153 
5015 N* = RIGHT* < STR* < INT < RND 
< 1 ) * 10 )), 1 ) 

5020 IF J » 1 AND N* = "0“ THEN 
5015 

5030 NT* = NT* ♦ N*: VTAB 22: HTAB 
19iJ* » " " ♦ STR* <154 - 

J): PRINT RIGHT* <J*,3): NEXT 

5050 PK = 1 

5060 FOR K = 1 TO 17: VTAB 24: HTAB 
8: FLASH : PRINT "GUARDA ATT 
ENTAMENTE LO SCHERMO"; : NORMAL 

5065 IF MID* <NT*,PK,1) = M 0" THEN 
NT* « LEFT* <NT*.PK - 1) ♦ 

"1“ ♦ MID* <NT*,PK ♦ 1) 
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5070 A*(K) * MIDS <NTS,PK,K) 

5080 PK =* PK ♦ K 
5090 NEXT K 

5100 POR I * 1 TO 3: UTAB I ♦ 2: 
HTAB 14: PRINT "*•;: HTAB 2 
6i PRINT NEXT : UTAB 6 

: HTAB 13: PRINT •/■; : HTAB 
27: PRINT CHR* (92); 


5105 

UTAB 

7: 

HTAB 

2: 

PRINT 

LEFT* 

7000 

IF CT / 1000 > NS 

THEN 

UTAB 


<DH*, 

1 1 ) 

;: HTAB 28: PRINT LEFTS 


22: HTAB 12: PRINT 

- TEMPO S 


<DH*, 

1 1 ) 

• 

t 





CADUTO! ";: PRINT 

CHRS 

(7) 

51 10 

UTAB 

3: 

HTAB 

2: 

PRINT “ 

MASS 


; : GOTO 9000 




IMO:* 

i * 

PRINT 

GAME; 


7010 

UTAB 22: HTAB 12: 

PRINT 

-TE 

51 1 5 

IF GAME 

- 0 THEN 

HTAB 

10: UTAB 


MPO RIMASTO: " INT 

(NS - 

(CT 


3: PRINT 

••_■ 

• 

* 




/ 1000))": : RETURN 


5120 

UT AB 

4: 

HTAB 

2: 

PRINT " 

DI FF 

8000 

HOME : END 




I C . ' : 

■ ;DF; 




8990 

UTAB 22: HTAB 12: 

PRINT 

" T 

5130 

UT AB 

5: 

HTAB 

2: 

PRINT " 

LIU. 


EMPO SCADUTO! 

PRINT 

CHR* 


: ; 







(7) ; 



5140 

UT AB 

6 : 

HTAB 

2: 

PRINT “ 

PUNT 

9000 

FOR X a 1 TO 2200 

: NEXT 

X 


I : " ; 






9020 

UTAB 22: HTAB 11: 

PRINT 

M 

5150 

UT AB 

3: 

HTAB 

27: 

PRINT 

M 


R*=RI PETE F=F INE " ; 

: GET AS 


* • 

> 






9040 

IF A$ » -R- THEN 

9075 


5160 

UTAB 

4: 

HTAB 

27: 

PRINT 

« 

9050 

IF AS * " F * THEN 

8000 



* • 

» 






9060 

GOTO 9020 



51 70 

UTAB 

5: 

HTAB 

27: 

PRINT 

- <ES 

9075 

IF SC > GAME THEN 

GAME - 

SC 


C> RIPETE - ; 








5180 

UTAB 

6 : 

HTAB 

29: 

PRINT 

"LIU 

9080 

SC « 0: GOTO 1000 




. FINE"; 

5200 RETURN 
5990 SC » SC - 25 
6000 UTAB 6: HTAB 8: PRINT SC 
• ; : RETURN 

6020 SC » SC ♦ 100 + Q * 10 + 
<100 - NS): UTAB 6: HTAB 
SC;“ ": RETURN 


2 * 

8: PRINT 




Compositore musicale 


appiè 


un Paddles 


Questo è un delizioso programma che trasfor¬ 
ma il vostro Apple in un pianoforte. Potrete 
creare la vostra musica e salvare le vostre com¬ 
posizioni su disco per un uso futuro. 

La fila di tasti in alto suona la scala musicale 
(do, re, mi, da, sol, la, si) mentre i tasti QWER¬ 
TY servono a dare i semitoni della scala musi 
cale. Tutte le note suonate vengono poste in 


un'area di memoria libera e possono essere 
memorizzate su disco. La lunghezza delle sin¬ 
gole note è definita dalla rotazione della pad- 
die n. 0. Per cancellare una nota si usa il sim¬ 
bolo T mentre per vedere la rotazione della 
paddle si preme il tasto 'p'. Per terminare la 
composizione si batte il solo (RETURN). 


1 P(5KE '768,1 

2 GC3UB 9000: GGSU6 10000 

3 PGKE 79*,7 

5 DIM MELI 250,2) ,TU<255,2>: GOSUB 

3000 

6 REM 

7 REM 

8 REM 

9 FOR J = 1 TO 250 

10 GET B* 

12 B = ASC < 6* ; 


13 1F B > 4B THEN TN » T< ASC (B 
*> - 48) 

15 IF B = 13 THEN 2000 

18 IF B = 32 THEN MEL(J,1) - - 

1 :MEL< J , 2) =* PDL (0): IF PDL 
(0) » 0 THEN MEL< J,2) - 255: 
GOTO 45 

19 IF B = 32 THEN 45 

20 IF B < 47 THEN 10 

22 IF Bl = “P" THEN UTAB 23: CALL 
- 958: PRINT "PADDLE* “| PDL 
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<0)s GOTO IO 

25 IF B$ « "/" THEN J * J - 1: GOTO 
10 

28 MELCJ.l) = TN:MEL< J, 2) «= PDL 

(0) 

34 POKE 773,MEL( J,1) 

37 POKE 774,MEL(J , 2) 

40 CALL 778 

45 VTAB 23: CALL - 953: PRINT - 
LUNGHEZZA NOTE * “; PDL <0> 

50 NEXT J 

55 END 

100 GOTO 2000 

110 PRINT : GOTO 2070 

120 REM 

125 CALL - 936 
300 REM 

3o0 VTAB (10): PRINT "FINE ' COMP 
OSIZ1 ONE' M 
380 REM 
382 REM 

385 FOR I = 1 TO 1000: NEXT I 
390 FOR 1 = I TO 3 

395 POKE 773,208: POKE 774,56: CALL 
778 

410 NEXT 

415 POKE 773,0 

420 POKE 774,0 

430 CALL 778 

499 END 

2000 REM 

2002 I = J 

2005 CALL - 936 

2010 PRINT : PRINT : PRINT "VUOI 
ASCOLTARE LA COMPOSIZIONE ( 
S/N) ? - ; : GET YO* 

2020 IF YOS < > "S" THEN 2070 

2030 FOR -J = 1 TO I - 1 

2035 IF MEL< J,1> = - 1 THEN FOR 

U = 0 TO MEL(J,2): NEXT W: GOTO 
2058 

2040 POKE 773,MEL < J,1) 

2050 POKE 774,MEL< J,2) 

2055 CALL 778 
2058 REM 
2060 NEXT J 

2070 PRINT : PRINT : PRINT : PRINT 
: PRINT : PRINT "VUOI SALVAR 
LA SU DISCO (S/N) ? ■; : GET 
YO* 

2080 IF YO* *= “S" THEN GOSUB 25 
00 

2100 GOTO 125 
2500 REM 

2505 PRINT : PRINT : PRINT : INPUT 
■CON CHE NOME ? -;FLS 
2510 IF < PEEK (768) = 1) THEN X 
» PEEK (116): POKE U6,X - 
2: POKE 768,0 

2512 P = PEEK (116) * 256 ♦ PEEK 
(115) 

2515 POKE P t I - 1 

2520 FOR K = 1 TO 1 - 1 

2530 POKE P ♦ 2 * K - 1,MEL(K,1) 

2540 POKE P ♦ 2 « K,MEL(K,2) 

2550 NEXT K 


2560 DS » CHRS (4) 

2570 PRINT D*;■BSAVE * |FL*f ",A a * 
P-,L*;2 * I - 1 

2580 PRINT : PRINT "PER CONTINUA 
RE PREMERE RETURN"; : GET A* 
: IF ASC (A*> < >13 THEN 

125 

2590 REM 

3000 REM 

3010 CALL - 936 

3020 VTAB 6: PRINT "#*#«#*#***## 

*«**«**#***«*»**•**•***«#**# 

" • 
t 

3025 VTAB 8 

3040 HTAB (6): PRINT " COMPOSI 
ZI ONE MUSICALE ■ 

3045 PRINT 

3055 VTAB 10: PRINT ■**#***##*** 


30 60 VTAB 23 
3065 GOSUB 4100 

3070 PRINT "VUOI LE ISTRUZIONI ? 

• ; : GET A*: PRINT 
3075 IF Al ( > *S- THEN VTAB 1 

8: CALL - 958: GOTO 3300 
3080 CALL - 936 

3100 PRINT : PRINT "USA LA TASTI 
ERA COME UN Pl^OFORTE* 

3110 PRINT : PRINT 
3120 GOSUB 3500 
3130 HOME 

3150 PRINT ; INVERSE : HTAB 13: PRINT 
■FUNZIONI SPECIALI" 

3152 NORMAL 

3153 PRINT : PRINT 
3155 PRINT ■ - TASTO - 

- EFFETTO -■ 

3158 PRINT : PRINT •RETURN*; : HTAB 
24: PRINT “FINE COMPOSIZIONE 

3160 *PRINT "BARRA SPAZ.“; : HTAB 
24: PRINT * CONTINUA¬ 
SI 65 PRINT */ (BARRA)-;: HTAB 24 
: PRINT “CANCELLA UNA NOTA* 

3168 PRINT -P-;: HTAB 24: PRINT 
•VISUALIZZA PDL(0 > * 

3170 PRINT "LUNGHEZZA DELLE NOTE 
E' PROPORZIONALE PRINT ■ 

ALLA POSIZIONE DEL PDL (0)" 

3190 VTAB 17: PRINT * LA COMPOSIZ 
IONE PUÒ' ESSERE SALVATA SU 
DISCO" 

3300 VTAB 20 

3310 PRINT -VUOI SENTIRE UNA COM 
POSIZIONE DEL DISCO? ■;: GET 

R* 

332U IF R% = -S- THEN 20000 
3325 PRINT * COMPONI SULL 

A TASTIERA 

3330 VTAB 20: CALL - 958: PRINT 
- COMPONI SULLA TASTIERA * 

3340 RETURN 
3500 REM 

3510 PRINT : CALL - 958 
3520 PRINT -TASTO:"l 2 3 
4 5 6 7 8- 

3525 PRINT 
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3530 PRINT “NOTA HTAB 9: INVERSE 

s PRINT -C"; : HTAB 12; PRINT 
"D" ; : HTAB 15: PRINT “E“;s HTAB 
18: PRINT “F“; : HTAB 21: PRINT 
"G"|l HTAB 24: PRINT “A“ ; : HTAB 
27: PRINT “B“j: HTAB 30: PRINT 
“C“ 

3535 NORMAL 

3540 PRINT : PRINT : PRINT “TAST 
0;“;“ Q U E R T Y U“ 

3542 PRINT 

3545 PRINT “NOTA INVERSE : HTAB 

8: INVERSE ; PRINT -CU"j: HTAB 
11: PRINT “D#“;: HTAB 17: PRINT 
“F#“;: HTAB 20; PRINT “G#“; : 

HTAB 23: PRINT “A#“ 

3550 NORMAL 
3555 PRINT : PRINT 
3560 PRINT “LE DUE RIGHE SUPERIO 
RI DELLA TASTIERA - 
3570 PRINT “SUONANO LE OTTAVE S 
UCCESSIVE“ 

3585 VTAB 23: PRINT “BATTERE UN 
TASTO PER CONTINUARE" 

3590 GET A* 

3599 RETURN 
4100 REM 

4105 NTE « 773 s DUR = 774:PLAY = 7 
78 

4110 CI - 0 :C2 = 128 :F » 192:A1 » 

156 :F2 » 96 
4112 C = 0:A = 156 
4115 FOR I - 1 TO 2: POKE NT E,C: 

POKE DUR,80: CALL PLAY: NEXT 
I 

4120 POKE NTE,F: POKE DUR,64 : CALL 
PLAY 

4125 POKE NTE,CI : POKE DUR,ó4: CALL 
PLAY 

4130 POKE NTE,F: POKE DUR,64: CALL 
PLAY 

4135 POKE NTE,A: POKE DUR,64: CALL 
PLAY 

4140 POKE NT E,F: POKE DUR,0 : CALL 
PLAY 

4199 RETURN 
8000 REM 
8010 HOME 

8015 INPUT “QUANTE NOTE ? “;N0 
8020 PRINT “NOTA « TASTO LUNG“ 

8030 PRINT 

8040 FOR I = 1 TO NO 

8050 PRINT 1,“ “;MEL<I,1);“ 

“;MEL(1,2) 

8060 NEXT 
8070 END 
9000 REM 

9010 FOR I = 778 TO 798 
9020 READ P 
9030 POKE I ,P 
9040 NEXT 

9042 POKE 775,141: POKE 776,32: POKE 
777,192 
9050 RETURN 
10000 REM 
10010 DI M T < 42) 

10020 FOR 1 = 1 TO 42 
10030 READ T<I) 


10040 

NEXT 



10050 

RETURN 


1 1000 

DATA 

173,48,192,136,208,5 


,206 



11010 

DATA 

6,3,240,9,202,208 

,24 



5,174 


1 1020 

DATA 

5,3,76,10,3,96 


1 1500 

DATA 

0,232,208,192,174 

,15 

l 

6,137 



11510 

DATA 

128,1,1,1,1,1,1,1 

,1 

1 1520 

DATA 

128,83,1,104,1,96 

,87 


,78 



11530 

DATA 

1,70,64,1,1,73,1, 

1 ,2 

43 



1 1540 

DATA 

183,116,166,1,91, 

220 


,110,147,121 


20000 

D* = 

CHR* < 4) 


20002 

REM 



20003 

PRINT 

: PRINT 


20004 

INPUT 

H QUALE ? “;FL* 


20005 

Q » PEEK (115) ♦ 256 * 

PEEK 


(116) 



20010 

PRINT 

;Q 

D*;“BLOAD “ ;FL*;“ 

,A“ 

200 12 

LIM * 

PEEK (Q) 


200 15 

PRINT 

: PRINT "RICERCA 

IN 

CORSO" 



20017 

PRINT 



20020 

FOR K 

= 1 TO LIM 


20 0 30 

TU< K, 1 ) = PEEK <Ù ♦ 2 * 

K - 


1 ) 



20040 

TU(K,2 

) - PEEK (Q ♦ 2 * 

K) 

20050 

NEXT 

K 


20100 

FOR K 

= 1 TO LIM 


20110 

POKE 

7 73,TU< K,1) 


20120 

POKE 

774,TU(K,2) 


20 130 

CALL 

778 


20140 

NEXT 

K 


20 199 

PRINT 

: PRINT “PREMERE 

' RE 


TURN'“ 

20200 GET A*: IF ASC <A*> < > 

13 THEN 125 
20220 GOTO 3000 


Guida per l’input dei 
programmi sul TI 99/4A 

A causa del sistema di codifica utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise "andate a capo" delle quali, natu¬ 
ralmente, non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrà capitare, a volte di trovare nei listati 
di programmi per TI 99/4a alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tasto indicato dai 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate _A_ dovrete battere 
CONTROL + A; se trovate —.dovrete battere 
CONTROL + SPAZIO, e così via. 
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R. 



TI-99/4A 


Rubik? 




Chi di voi non è stato almeno una volta ad im¬ 
pazzire per ore sul cosiddetto “Cubo di 
Rubik?" 

Tra l'altro, ora pare che l'inventore non sia pro¬ 
prio Rubik, ma un altro Tizio americano che 
ha fatto causa a Rubik reclamando i diritti (ed 
i soldi finora incassati) per la presunta sua in¬ 
venzione; per cui, d'ora innanzi, non bisogne¬ 
rà più dire “Cubo di Rubik", ma “cubo di Ti- 
• # 

zio . 

Sono problemi che però non sfiorano minima¬ 
mente noi possessori del buon vecchio TI-99/4a, 
che aa oggi avremo a dipsosizione un rompi¬ 
capo computerizzato molto simile al famoso 
cubo, ma che ha ben poco da spartire con “cu¬ 
bo di Rubik" o “cubo di Tizio". 


|*X**X**X*XX*»X*XA 

8 !** RUBIK?** 

y i***************** 

10 iTX- 99 EXT.BASIC 

20 CALL OLEAH :: CALL SCREEN(12) 

30 RANDOM1ZE 
40 GOTO 580 
50 REM SCHERMO 
60 FOR A1 = 1 TO 5» 

7U FOR A2=l TO 5 
80 COLOR (Al ,A2)=lU*Al-»-90 
90 CALL HCHAK(b+Al,11+A2,COLORlA 
1 # A2) ) 

10O NEXT A2 
1 1 0 NEXT Al 

120 J$ = "FFFFFFFFFFFFFFFFFF" 

130 FOR A=1 TO b :: CALL CHARllO 
*A+90,JS) : : NEXT A 
140 CALL COLORl9,16,1 ) 

150 CALL COLORII 0,1 2,1 ) 

160 CALL COLOR(12,10,1) 

170 CALL COLOR (1.5,13,1) 

180 CALL COLORII 4,5,1 ) 

190 FOR T=1 TO 5 

200 CALL HCHARIti-t-T,l1,ASCCSTRS(T 
))) : : NEXT T 

210 DISPLAY AT11 4,1 o ):"67090" 

220 RETURN 
230 ! HANDOMIZE 
24Ù FOR T=1 TO 23 
250 K* 1 NT(RND* 10 + 48) 


Semplicemente procedete alla digitazione di 
questo brevissimo listato in Lxtended basic ed 
in meno di 20 minuti potrete procedere a fon¬ 
dervi le meningi cercando di ordinare le 5 ri¬ 
ghe del vostro cubo secondo un unico colore 
per ciascuna riga orizzontalmente o vertical¬ 
mente, semplicemente indicando il numero di 
riga che volete spostare da sinistra verso de¬ 
stra o dall'altro verso il basso. 

Il programma è volutamente privo di orpelli più 
o meno utili, per dare modo a chi vuole solo 
giocare di avere a disposizione un programma 
ready-to-use; mentre chi preferisce personaliz¬ 
zare sempre i programmi di Papersoft avrà un 
ottima occasione per dare libero sfogo alla pro¬ 
pria creatività. 


260 GOSUb 300 
270 NEXT T 
280 RETURN 
290 'MOSSE 

300 ON lK-47)GOSUB 4 80,490,500,5 
1 0 

520,530,540,550,5bO,570 
310 1F KOWOU THEN 400 
3c0 FOR A= 5 TO 1 STEP -1 
3 j 0 COLOR(A+l,COLUMN)=COLOK(A,CO 
LUMN ) 

340 NEXT A 

350 COLORO , COLUMN ) =COLOR ( b , COLU 
MN) 

3o0 FOR A=1 TO 5 

370 CALL HCHAR ^ 8+A, 1 1+COLUMN,COL 
OR lA,COLUMNJ ) 

38u NEXT A 
390 RETURN 

400 FOR A=5 TO 1 STEP -1 

410 COLOR ( ROW , A4- ì ) =COLOR ( ROW , A) 

420 NEXT A 

430 XOLORlROW,l)=COLOR(ROW,b) 

440 FOR A=1 TO 5 

4 50 CALL HCHAR ( 8 + ROW , 1 1 -t-A, COLOR ( 
ROW,A)) 

460 NEXT A 
470 RETURN 

480 RC*=o •• COLUMN= 5 :: RETURN 


Q 


450 ROW=1 :: COLUMN=0 :: RETURN 
















bOO 

R0w = 2 

• 

• 

• 

• 

COLUMN=0 


RETURN 

SIO 

R0w=3 

• 

• 

• 

COLUMN * 0 


RETURN 

b2 0 

R0w' = 4 

• 

• 

• 

• 

COLUMN-0 


RETURN 

5 J 0 

ROv^b 

• 

• 

• 

• 

COLU.IN 0 


RETURN 

b 4 0 

R0* = 0 

• 

• 

• 

COLUMN* l 


RETURN 

bbO 

RO* = U 

• 

• 

• 

C0LUMU & 2 


RETURN 

b60 

ROv* = 0 

• 

• 

• 

COLUMN=3 


RETURN 


S70 ROX = 0 :: COLUMN-4 :: RETURN 

btìO ìPROGRAMMA PRINCIPALE 

b*0 GOSUb 00 

oOO GOSUb 240 

6 ì U CALL KEYl 5 # R , b j 

62 O IF S=0 OR K< 4 o OR K>b7 THEN 

610 

b30 GOSUb 300 
ó 40 GOTO b1U 
6 bU END 


Spritcr 


4? TI-99/4A 

( • tender! -Vi .<• 


Questo volto voglio presentarvi un programmo 
che non è il solito S prite Editor ma una utility 
che vi farà molto comodo per la creazione dei 
vostri videogiochi. La tecnica di animazione me¬ 
diante Sprite non è più un segreto: dalle pri¬ 
mordiali tecniche cinematografiche si è utiliz¬ 
zato il sistemo della successione rapida di im¬ 
magini fisse per dare l'impressione di movimen¬ 
to; lo stesso si usa fare nei videogiochi per 
“ muovere" gli “spiritelli ". Ora con S priter ed 
il modulo Extended Basic potrete utilizzare que¬ 
sta tecnica in un modo molto semplice. Spo¬ 
ter, automaticamente, calcola, dimensiona e 
registra un vettore di 4 caratteri che definisce 
disegni sulla ll-Thermal Printer o. con minime 
modi fi che di listato, sulla vostra stampante 

100 rem ******************* 

Ilo REM * SFRITER * 

120 REM ******************* 

130 REM 

140 REM TI-9^ eXTENDEU 
IbO CALL CLEAR 

IbO CALL CHARSET :: FOR l=*b TO 
14d :: CALL CHARlI,'"') : : NEXT 1 

170 INPUT "HAI UNA STAMPANTE TER 

MICA lS/N)?" :TPS 

IbO DIM CHAS(bO),ID$tbO) 

190 INPUT "VUOI CARICARE UN FILE 
DI CARATTERI DA NASTRA 


Per disegnate userete i tasti-cursore tenendo 
conto che lascerete una traccia che diverrà ne¬ 
ra premendo il tasto F e neutra premendo 
-A-. 

In coda al listato principale vi sono anche due 
Demo (da registrare separatamente) che vi da¬ 
ranno modo di constatare le possibilità offer¬ 
te; Demo I (dalla linea 10000) creerà un ciclo 
continuo di animazione per le vostre creature 
appena "sfornate". 

Demo 2 (dalla linea 20000) incorpora degli 
enunciati DATA per coloro che si vogliono di¬ 
vertire prima di utilizzare S priter. 

Insomma i cartoni animati saranno alla vostra 
portata con Spriter ed il vecchio TI. 


FLOPPY DISK(S/N)?" :ANS :: iF 
AN$<>"S" THEN 240 

200 DISPLAY AT(24,1):"NOME DL FI 
LE" :: ACCEPT AT(24,11 ) S I Z E {1 0 j V 
ALIDATElUALPHA/DIGIT) :NAM$ : : IF 
POSlNAMS," ",1)<>0 THEN 2uO 
210 PRINT "PREMI '1' PER NASTRO 

'2’ PER DISK" : : IN 
PUT "(1/*)V":AN$ 

*20 IF ANS="1" THEN ^FILeS="CS 1" 
ELSE IF AN$="2" THEN £F1LE$="DS 
Kl•"&NAM§ ELSE G 
OTO 2l0 

230 GOSUb lzbO :: GOTO *b0 


0 























240 IF AN$C >"N" THEN 190 ELSE US 
=0 :: GOTO 290 
2SO IF TP$="N" THEN 2b0 
2(60 OPEN »1 : "TP.U.E.S" ,OUTPUT :: 
FOR J=0 TO NS 

^70 PRINT #1 :J,ID$ (J) : : NEXT J : 

: CLOSE *1 

280 NS=NS+1 :: C$=CHA$(0) 

290 FOR 1=NS TO 1000 
300 GUSUB 520 

310 DISPLAY AT(2,1) :ID$ (NS) : : DI 
SPLAY ATU2,1 ) :C$ 

320 DISPLAY AT(3,1):" UN TASTO P 
ER CONTINUARE..." 

330 CALL KEY(0,K,S) : : IF S = 0 THE 
N 330 

340 CALL CLEAR : : INPUT "COLORE 
DELLO SPR1TE? ":COL 
350 CALL CHAR(9b,C$) : : CALL SPRi 
TE(#1,5b,COL,30,30,0,-30): : CALL 
MAGNIFY(4) 

360 DISPLAY AT(10,3):" UN TASTO 
PER CONTINUARE." 

370 CALL KEY(0,K,S):: IF S=0 THE 
N 370 ELSE CALL DELSPRITE(ALL; 
3ò0 INPUT "VUOI SALVARE IL CODIC 
E DI CARATTERE DI QUESTO SPRIT 
E (S/ N) ?" : AN$ 

390 IF AN$="S" THEN CHA$(NS)=C$ 

4U0 INPUT "VUOI CONTINUARE(S/N)? 
" : AN$ :: IF AN$="N" THEN <*30 ELS 
E IF AN$C>"S" THEN 400 
410 NS=NS+1 
420 NEXT I :: END 

430 INPUT "VUOI SALVARE IL LAVOR 
O SU NASTRO O FLOPPY DISK(S/N) 
?" :AN$ 

440 IF AN$="N" THEN 510 ELSE IF 
AN$C>"S" THEN 430 

450 DISPLAY AT(24,1):"NOME DEL F 
ILE?" :: ACCEPT AT(2+,1b)SIZE(10 
)VAL1DATE(UALPHA,DiGIT):NAM$ : : 
IF POS(NAM$," ",1)<>0 THEN 45o 
4b0 PRINT "PREMI •T PER NASTRO 

•2' PER DISK" : : IN 
PUT "(1/2)?":AN$ 

470 IF AN$ = "1" THEN @FILE$="CSl" 
ELSE IF AN$ = "2" THEN yFILE$="DS 
Kl."&NAM$ ELSE G 
OTO 4bO 

480 OPEN #1 :tìFILE$,INTERNAL,OUTP 
UT,FIXED 128 
490 PRINT #1 :NAM$,NS 
500 FOR K=0 TO NS :: PRINT *1:ID 
$(K),CHA$(K):: NEXT K :: CLOSE # 
1 

510 END 

520 REM SUB DRAV1ER (TP$ , C$ , NS , AN$ 
, CHA$ ( ) ,ID$() ) 

530 CALL CHAR(33,RPT$("F",16)) 
540 IF C$ = "" THEN 390 


550 INPUT "VUOI INI ZIALI ZZARE CO 
N UN CARATTERE PREDEF1NITO(S/N 
) ?" :AN$ 

5b0 IF AN$="N" THEN C$ = "" :: GOT 
O 590 ELSE IF AN$<>"S" THEN 5 d0 

570 INPUT "INSERISCI L'INDICE DI 
CARAT-TERE DESIDERATO, NESSUN 
VALORE PER DEFINIZIONI P 

IU’ RECENTI":NOS 

580 IF NOSCO THEN 590 ELSE C$=CH 
A$(NOS): : NXX=NOS :: GOTO 600 
590 NXX=NS-1 

600 M=1b :: IF LEN(C$)=0 THEN C$ 
=RPT$("0",64) : : F=0 ELSE F = 1 
61 0 IF LEN (C$ ) = 1 b THEN C$=C$6.RPT 
§("0",48) 

620 N = 1 :: Cl$=SEG$(C$,1,1b) : : C 

2$=SEG$(C$,17,1b) : : C3$=SEG$(C$, 
33,lo):: C4$=SEG$(C$,49,16) 

630 PRINT "USA I TASTI CON LE FR 
ECCE E ' Vi,R,C , Z 1 PER DIRIGERE IL 
CURSORE; PER CAMBIARE LA PO-L 
ARITA'USA ’F' PER NERA, 'A' PER 
NEUTRA." 

640 CALL KEY(0,K,S) : : IF S = 0 THE 
N 64 0 

630 CALL CLEAR :: CALL HCHAR(4,4 
,30,M+2) : : CaLL HCHAR(M+5,4,30,M 
+ 2T 

ObU CALL VCHAR(5,4,30,M) : : CALL 

VCHAR(6 r M+5,30,M): : X,Y=5 
670 IF AN$="S" THEN GOSUB 1130 
080 IF NXX>=0 THEN DISPLAY AT(2, 
1) :1D$(NXX): : DISPLAY AT(22,1):C 
$ 

o90 CALL HCHAR(X,Y,30,1) : : CT$=C 
$ :: GOSUB 990 :: C$=CT$ 

700 CALL KEY(1,K,S) 

710 IF S=0 THEN 700 ELSE IF N=1 
THEN’CALL HCHAR(X,Y,33,1)ÉLSE CA 
LL HCHAR(X,Y,32,1) 

720 IF K=1 THEN N=0 

730 IF K=12 THEN N=1 

740 IF K=b AND X>3 THEN X=X-1 

750 IF K=0 AND XCM+4 THEN X=X+1 

7o0 ÌF K=2 AND Y>5 THEN Y=Y-1 
770 IF K=3 AND YCM+4 THEN Y=Y+1 

780 IF K = 4 AND X>5 THEN IF Y>5 T 
HEN X=X-1 :: Y=Y-1 

790 IF K=6 AND X>5 THEN IF YCM+4 
THEN X=X-1 :: Y=Y+1 
800 IF K=15 AND XCM+4 THEN IF Y> 
5 THEN X=X+1 :: Y=Y-1 
81y IF K=I4 AND XCM+4 THEN IF YC 
M+4 THEN X=X+1 :: Y=Y+1 

8^.0 IF K = 18 THEN 910 
830 IF X>4 AND XCl3 THEN IF Y>4 
AND YC13 THEN P=1 ELSE P=5 ELSE 
IF Y>4 AND YCl3 THEN P=2 ELSE P= 
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840 IF P=1 THEN XU=X-5 :: Y0=Y-5 
:: CH$=SEGS (C$ , 1 ,1 6) 

8 30 IF P=2 THEN X0=X-13 :: YO=Y- 

5 :: CH$=SEG$(C$,17,16) 

860 IF P=3 THEN XO=X-3 :: YO=Y-l 
3 :: CH$=SEG$(C$,33,16) 

870 IF P=4 THEN X0=X-13 :: Y0=Y- 
13 :: CH$=SEG$ lC$,49,l6) 

8b0 CT$=CH$ :: GOSUB 990 :: CH$ = 
CT$ 

890 IF P=1 THEN Cl$=CH$ ELEE IF 
P = 2 THEN C2$=CH$ ELSE IF P=3 THE 
N C3$=CH$ ELSE IF P=4 THEN C4$=C 
H$ 

900 CALL HCHAR(X,Y,30,1):: CS=C1 
$&C2S4,C3St,C4$ :: GOTO 700 
910 DISPLAY AT( 2 z , 1) : "NOME SPRIT 
E?" :: DISPLAY AT(23,1):"" :: DI 

SPLAY AT(24,1):"" 

920 ACCEPT AT(23,1):ID$(NS) 

930 IF TP$="N" THEN GOTO 980 
94U DISPLAY AT (22,1 ): "VUOI STAMP 
ARE SU T.P.(S/N)?" :: ACCEPT AT( 
23,1):AN$ 

930 IF AN$="N" THEN GOTO 9b0 ELS 
E IF AN$< >"S" THEN 940 
960 DISPLAY AT (2,1) :ID$ (NS) : : DI 
SPLAY AT(22,1):C$ 

970 CALL SCREEPT 
980 RETURN 

990 REM SUB ADDPIX (X,Y,N,C(?) 

1000 IF Y0<4 THEN ZT=2*X0+1 :: Y 

T0=3-Y0 ELSE ZT=2*X0+^ :: YT0=7- 
Y0 

1010 A2$ = SEG$(CT$,ZT,1 ) 

1 02u IF ZT>1 THEN Al$=SEG$(CT$,1 
, 2 T - 1 ) 

1030 IF ZTClo THEN A3$=SEG$(CT$, 
ZT+1,16-ZT) 

1040 NH=ASC( A2$ ) : : IF NH< = 37 THE 
N NH=NH-48 ELSE NH=NH-53 
1030 ZZ=lNT(NH/(2~YT0))-Z*INT(NH 
/U“(YTU+1))) 

1060 IF ZZ=0 AND N=1 THEN NH=NH+ 

2 * YT0 

1 O70 IF ZZ=1 AND N=0 THEN NH=Nh- 
2'YTO 

1 080 IF NH< = 9 THEN A2$=STR$(NH)E 
LSE A2$=CHR$(NH+33) 

1090 IF ZT= 16 THEN CT$=Al$&A2$ 
1100 IF ZT= 1 THEN CTS=AZ$S.A3S 
1110 IF ZT<>16 AND ZTOl THEN CT 
$ = A1$ùA^$6iA3S 
1 120 RETURN 

1130 REM SUB EXPANDER(CS,XU,Y0) 

1140 UEF B(A)=INT(NHF/(2'A))-2*1 
NT(NHF/(2“(A+l))) 

1130 FOR IW = 0 TO 13 :: FOR JW = 0 
TU 1 s 

1160 IF JW>7 THEN JW0=J«-8 ELSE 
JviÙ = Jw 


1170 IF IW>/ THEN IWO=IW-8 ELSE 
IW0=IM 

1180 IF IW<8 THEN IF Jrt<8 THEN L 
W = 2 ELSE Lw = 4 

1190 IF JW0<4 THEN ZW=2*IW0+1 :: 

YW=3-JN0 ELSE ZW=2*IWO + 2 :: YN = 
7-JN0 

1200 SA26 = SEG$ (S$,Zw, 1) 

1210 SAz$=SEG$(CS,ZW+16*(LW-1),1 

) 

122U NHF=ASC(SA2$) : : IF NHF< = 67 
THEN NHF=NHF-48 ELSE NHF=WHF-33 

1230 IF B(YW)=1 THEN CALL HCHAR( 
X+Iw,Y+JW,33,1) 

1 240 NEXT Jw : : NEXT IN 
1230 RETURN 

Uoo REM SUB CASTER l@FILE$ ,N,IS ( 

) ,C$() ) 

lz70 OPEN * 2 :tìFILES,INTERNAL,INP 

UT ,FIXED 12o :: GOTO 12b0 

1280 INPUT #2:NAMS,Na 

K90 FOR I=o TO NS 

1 300 INPUT #2:ID$ (1) ,CHA$(I) : : N 

EXT i :: CLoSE #2 

1310 H3 = 23 :: Nl=0 :: IF NS< = 24 

THEN N2=NS ELSE Nz=23 

1320 FOR I=N1 TO N2 :: IF I>NS T 

HEN 1370 

1 330 PRINT I ;ID$ ( 1): : NEXT I 
1J40 PRINT "PREMI UN TASTO." 

1 330 CALL KEY(0,K,S): : IF S=0 TH 
EN 13SO 

1360 IF NS>N3 THEN Nl=Nl+24 :: N 
z=N2+24 :: U3=Ns+24 :: GOTO 1320 

13/0 RETURN 
1380 SUB SCREEPT 

1390 OPEN #233:"TP.U.E.S",OUTPUT 
: : FOR X=1 TO 24 : : S$ = "" 

1400 FOR Y =1 TO 32 :: CALL GCHAR 
(X,Y, Z) : : S$=S$f»CHR$ (Z) 

1410 NEXT Y :: PRINT *233:S$ :: 
NEXT X :: CLOSE #23s 
1420 SUBEND 
I <*30 END 

10000 i ***************** 

10010 ! * * 

10020 ! * DEMO 1 * 

10O30 ! * * 

1 0040 ; ***************** 

10050 ! DIMOSTRAZIONE DI ANIMAZIO 
NE SPR1TE MEDIANTE DATA-FILES SU 
CASSETTA O DISCO 
10060 CALL CLEAR 
10070 DIM CHA$(17),ID$(17) 

1 0080 CALL CASTER (NS , ID$ () ,CHA(? ( 

) ) 

10090 FOR 1=0 TO NS :: CALL CHAR 
(13o-4*I,CHASli)) 

10100 NEXT I 
10110 CALL CLEAR 
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I012U CALL SPRITEUl , 1 ->0,2,30,30 
,0,-10) : : CALL MAGNIFY(4) 

10130 FOR 1=0 TO NS :: CALL PATT 
ERN(f1,13b-4*I): : CALL DELAY :: 
NEXT I :: GOTO 2b0 
1014 0 END 


101 bO 
1 01 oO 
1 Ol /U 
10130 
101 90 
1 0200 
10210 
10220 
ì 0230 
1 0240 


******************* 

CAMBIA FILE$ IN 
"Cài" PER FILKS 
SU NASTRO; E USA 
IL NOME DEL TUO 
FILE : 

"DSKl.nome del file" 

PER FILES SU DISCO 

******************* 

OPEN #2 :FILE?,INTERWAL,IHP 


NKX 


UT ,FIXED 128 
10280 INPUT #2:NAM$,N 
10280 FOR 1=0 TO N 
10270 INPUT #2:15(I),C$(I) 

TI:: CLOSE #2 
10280 SUBEND 
1029U SUB DELAY 

10300 FOR 1=0 TO 13 :: NEXT I :: 

SUB END 
10310 STOP 
20000 ; ********** 

20010 l* DEMO 2 * 

20020 I********** 

z0030 1 DIMOSTRAZIONE DI ANI-MAZI 
ONE SPRITES USANDO ENUN-CIATI DA 
TA. 

20040 
20030 
200b0 
2OU70 


CALL CLEAR 
DIM 1$ (1 7-) ,C$ (1 7) 

GOSUB z30 JCASTER 
FOR 1 = 0 TO N : : CALL CHAR( 
13b-4*I,C$ (I)) 

200b0 NEXT 1 
20090 CALL CLEAR 

201O0 CALL SPRITE(#1,13b,2,3u,30 


,0,-10):: CALL MAGNIFY)4) 

20110 FOR 1 = 0 TO N : : CALL PATTE 
RN(#l,1ob-4*I):: GOSUB 300 :: NE 
XT I : : GOTO 2 j0 
20120 END 

20130 ISUBROUTINE CASTER 

20140 READ NAM$,N 

20180 FOR 1=0 TO N 

201bO READ 1$ (I),C$(I): : NEXT I 


201/0 RETURN 

20180 ISUBROUTINE DELAY 

20190 FOR J=0 TO 13 :: NEXT J 

20200 RETURN 

20210 DATA MANbNbl,12 

20220 DATA MAN#1,0U0bU9090b0FUF0 

FiEObOFOF190804080OOOOUOOOOOOOOU 

0000u203080000000 

20230 DATA MAN#2,0304040307072F1 

30308070b06Uz07G00080sGOUS090DUA 

08080808080808000 

20240 DATA MAN#z. 5,0609090bOFOF 1 


7zbO60b0ElEA242010300000U0000006 

O408UU0OuUOO0o0000U 

2U230 DATA MAN#3,u00709030b0F0Fl 

72FUb0o0b0F090818000000000000000 

U0000000000804080 

202 bO DATA MAN*4,00001 8241COCl C2 

C4El60b07o602U206000000000000000 

OÓ040AOOOOOOOOOOO 

20270 DATA MAN#3,000000000000003 

b7FDE9bb242b1000100000000o000205 

O 0 O 0 OOOOOOOOU 8 OOO 

20280 DATA MAN#b,0006142414OCOC0 
COClClElElElDOC 10000000000000000 
00000000000008080 

20290 DATA MAN*6.8,00000020201 84 

C7COCOCOEObOb090E04000UOOOuOOOÙO 

uOUOOOOOOOO00008080 

20300 DATA MAN#7,000000000000004 

0b0402FlE376o4OC0000000000000000 

U4U80000000804020 

20310 DATA MAN#8,0000001 1 0A0b030 

101010303062A120b000000844850AOC 

OC080800000000000 

20320 DATA MAN#1,000b0909060F0F0 

FiE060F0F1908o4u80000000U0000000 

00000203080000000 

20330 DATA MAN#3,OOU70903060FOF1 

72FO6ObbbOFO9O8l80OOO0U0OO0OUO0U 

00000000000804080 

20340 DATA MAN#2.D,0b09o9060FUFl 

72b0b0b0ElEA2420103000000000000b 

040b000000000000000 


W “ci vediamo % 
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b pecorini 

namDurgvr 


Ormai anche nel nostro paese il fast food è una 
realtà non trascurabile: i ritmi della vita mo¬ 
derna hanno radicalmente modificato le abi¬ 
tudini alimentari degli italiani, che hanno so¬ 
stituito alla tradizionale abbuffata di mezzo¬ 
giorno la più rapida e dinamica sosta di uno 
dei numerosi 'Burger Bar'. Provate, per una 
volta, a vestire i panni del personale di servi¬ 
zio di uno di questi locali: quanto meno ap¬ 
prezzerete di più il lavoro che quotidianamen¬ 
te costoro svolgono ed imparerete ad avvicinare 
al bancone di lavoro i bicchierini usati, senza 
costringere chi lavora ad un affannoso su e giù 
per riordinare il locale. Avrete già capito che 
in questo gioco dovrete raccogliere tutti i bic¬ 
chieri lasciati in giro dai frettolosi avventori e, 


1 rem *********************** 

2 REM HAMBURGER 

3 REM *********************** 

10 CLEAR (USR ”A"-110): LET Z=( 

USR ”A”-110) 

20 RESTORE : CLS : POKE 23658,0: 

GO TO 330 

30 LET N=M2-1 : POKE (Z + ll),180 

40 FOR J=Ml+3 TO 19 STEP 3 

50 PRINT AT J-1,N;" " 

60 IF ATTR (J,M2)=59 OR ATTR (J,N)= 
59 OR ATTR (J,M2 + 1)=59 THEN 

LET S = S+10 : POKE (Z+36),70: 

FOR 1=1 TO 12: PRINT AT J,N; 

OVER 1;A$: RANDOMIZE USR (Z+25) 

: NEXT I: POKE (Z + 36) , 1 28 : LET F 
= 1 

70 INK 2: PRINT AT J,N;B$: FOR L=1 

TO 2: RANDOMIZE USR (Z+4): 

NEXT L: FOR L=1 TO 2 : PRINT 
AT J,N;A$ : RANDOMIZE USR (Z+25): 

PRINT AT J,N;B$: RANDOMIZE 
USR (Z+25): NEXT L: INK 0: 

PRINT AT J,N;" " 

80 NEXT J: POKE (Z+11),0: LET S=S+5 

£4 IF Mi=1 THEN LET S=S+50: LET C= 
C+l : PRINT AT 21 ,N;A$ 

100 PRINT ♦0 ;AT 1,12-LEN STR$ S;S 
110 IF C=3 THEN LET C=0: LET F=0: 

RANDOMIZE USR (Z+73): POKE (Z+l 
1 ) , 1 00: FOR L=1 TO 30: 

RANDOMIZE USR (Z+4): NEXT L: 

POKE (Z+l1 ) , 0 : GO TO 430 


inoltre, spedire verso il piano terra del bar (in 
fondo allo schermo) gli hamburger avanzati. 
In particolare per eliminare gli hamburger è suf¬ 
ficiente camminargli sopra. Evitate però le mele 
cattive che vi inseguono senza un attimo di so¬ 
sta, anzi cercate di schiacciarle sotto l'ham¬ 
burger che cade di sotto. I tasti per il movi¬ 
mento sono ‘ 9' & V (sinistra e destra) e '2' 
& W (alto e basso). Il gioco è veramente di¬ 
vertente, e non così facile come può sembrare 
a prima vista: in realtà, per eliminare le mele, 
è necessario muoversi con accortezza, elabo¬ 
rando opportune tattiche di gioco. Da segna¬ 
lare una routine in linguaggio macchina che 
realizza gradevoli effetti sonori. Buon lavoro. 


120 IF F= 1 THEN LET F=0: PRINT AT A 
1,A2;" ";AT A3,A4;” ”: GO TO 600 

130 RETURN 

140 FOR 1=1 TO 2 

150 PRINT AT Mi,M2;” ” 

160 LET M2=M2+(INKEY$=”0” AND M2<31) 
-(INKEY$=”9” AND M2>0) 

170 LET Ml=Ml+3*((INKEY$="w" AND 
ATTR (Mi+2,M2)=59)-(INKEY$="2” 
AND ATTR (Mi-1,M2)=59)) 

180 IF ATTR (Mi,M2)=58 THEN LET S=S 
+ 5: PRINT AT Mi , M2;”*”: 

RANDOMIZE USR (Z+4): PRINT #0; 
AT 1,12-LEN STR$ S;S 
190 PRINT AT Mi,M2;M$(I) 

200 IF 1=2 THEN GO TO 250 
210 PRINT AT Al,A2;" ” 

220 LET Al=A1+3*((MI>A1 AND ATTR (Al 
+ 2,A2)=59)- (Ml<Al AND ATTR (Al - 1 
,A2)=59)) 

230 LET A2=A2+(M2>A2)-(M2<A2) 

240 PRINT INK 3;AT Al,A2;"A": 

GO TO 270 

250 PRINT AT A3,A4;" ”: LET A3=A3+3* 
((Mi>A3 AND ATTR (A3+2,A4)=59)-( 
Mi<A3 AND ATTR (A3-1 ,A4) *59) ) : 
LET A4=A4+(M2>A4)-(M2<A4) 

260 PRINT INK 3 ;AT A3,A4;"A" 

270 IF POINT (M2*8,(20-Ml)*8-1)=1 

THEN IF POINT (M2*8+7,(20-Ml)* 
8-7)=1 THEN GO SUB 30 
280 IF ATTR (Mi,M2)=59 THEN GO TO 3 
00 
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290 NEXT I : GO TO 140 
300 FOR J=1 TO 2: RANDOMIZE USR (Z+7 
3)1 NEXT J: FOR J = M1 TO 1 STEP - 
1: PRINT AT J,M2;"C": BEEP .05,3 
0-3*J: PRINT AT J, M 2 ; " . " : NEXT J 

310 FOR J=1 TO 20: PRINT AT J,M2;"C" 
: BEEP .07,30-3*J: PRINT AT J,M2 
; PAPER 5;C$(J)8 NEXT J 
320 GO TO 410 

330 PRINT FLASH 1;AT 0,0;" 

HAMBURGER " 

340 PRINT ' rM LAVORI AL BAR DEGLI HAM 
BURGER, ED IL TUO COMPITO E' RA 
CCOGLIEREI BICCHIERI VUOTI E SPE 
DIRE GLI HAMBURGER AVANZATI VERS 
O IL PIANO TERRA." 

345 PRINT "PER FAR CIO' E' SUFFICIEN 
TE CAMMINARE SOPRA L'HAMBURG 

ER." 

350 PRINT '"EVITA PERO' LE MELE CATT 
IVE, CHETI VOGLIONO UCCIDERE!!" 
355 PRINT "CERCA INVECE DI IMPRIGION 
ARLE SOTTO L'HAMBURGER CHE CAD 
E! !" 

360 PRINT ' '"TASTI/COMANDI"'"9_SI 

NISTRA" ,"0.DESTRA" ," 2. 

. • ALTO" , " W.BASSO": GO TO 6 

1 0 

370 FOR I=USR "A" TO USR "M" + 7 
380 READ J: POKE I,J: NEXT I 
390 PRINT AT 21,9; INVERSE 1;"PREMI 
UN TASTO": RANDOMIZE USR (Z+4): 
PAUSE 0 

400 LET A$ = "EFG": LET B$ = "JKL": 

LET G$="IM": LET F=0: LET M$ = "C 
D": LET S = 0 : LET H=0: LET C$="LA 
PARTITA E' FINITA" 

410 IF S>H THEN LET H=S 
420 LET C=0: LET S=0 
430 FOR K=0 TO 255 STEP 5: POKE (Z + l 
1),K: RANDOMIZE USR (Z+4): 

NEXT K 

440 POKE 23692,255: FOR 1=1 TO 24: 

PRINT AT 21,31: PRINT : NEXT I: 
RANDOMIZE : CLS 
450 PRINT AT 0,0;"{32SG3}" 

460 PRINT FLASH 1; OVER 1; INK 3; 

AT 0,0;" HAMBURGER 

470 FOR 1 = 2 TO 20 STEP 3: PRINT AT I 
,0; INK 1; PAPER 6 ;"BBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBB ": FOR J=1 
TO 4: PRINT INK Ì;AT I-1,INT ( 
RND* 32);G$( 1 + (INT (RND*2))): 

NEXT J 

480 PRINT INK 5; PAPER 6;AT 1+1,0;" 
{32G3}": NEXT I 

490 LET E=0: FOR 1=3 TO 18 STEP 3 
500 FOR K= 6 TO 24 STEP 9: PRINT 
INK 2 ;AT I,K;B$: NEXT K 
510 LET J=INT (RND* 32) : IF ATTR (I, J 
) 053 THEN GO TO 51 0 
520 PRINT INK 3;AT I,J;"H";AT I-1,J 
;"H": LET E=E+1: IF E<>4 
THEN GO TO 510 


530 LET E=0: NEXT I 

540 PRINT #0 ;AT 0,0; INK 3;"{32G3}" 
550 PRINT AT 21,0; INK 5; PAPER 4;" 

{32G 3 } " 

560 LET Mi=19 : LET M2 = 0 

570 PRINT # 0 ;AT 1,1;"PUNTI 00000"; 

AT 1,22;"MAX 00000" 

580 PRINT # 0 ;AT 1 ,12-LEN STR$ S;S; 

AT 1,31-LEN STR$ H;H 
590 FOR K=2 4 0 TO 0 STEP -15: POKE (Z 
+11),K: RANDOMIZE USR (Z+4): 

NEXT K 

600 LET Al=3*(INT (RND*7))+1: LET A2 
=31: LET A3=3*(INT (RND*5))+1: 
LET A4=0: GO TO 140 
610 FOR J=Z TO Z+l02: READ K: POKE J 
,K: NEXT J: GO TO 370 
620 DATA 16,61,10,25,58,72,92,15,15, 
15,30,247,243,211,254,238,16,67, 
16,254,29,32,246,251,201,243,58, 
72,92,15,15,15,8,38,0,1,128,0,8, 
211,254,238,16,8,46,0,85,92,167, 
237,82,237,82,17,254,0,25,125,14 

8.56.1.61.103.61.32.253.11.120.1 
77,32,223,251,201,243,17,16,208, 

38.10.58.72.92.31.31.31.14.254.2 
38,16,237,121,67,16,254,37,32,24 
4,28,21,32,232,251,201 

630 DATA 60,126,255,153,255,255,126, 
60 

631 DATA 255,126,231,24,231,0,0,0 

632 DATA 56,56,16,56,124,186,40,68 

633 DATA 56,56,16,56,40,40,16,16 

634 DATA 0,127,255,0,255,0,255,127 

635 DATA 0,255,255,0,255,0,255,255 

636 DATA 0,254,255,0,255,0,255,254 

637 DATA 126,66,126,66,126,66,126,66 

638 DATA 0,62,28,8,8,8,28,0 

639 DATA 127,255,0,255,0,255,127,0 

640 DATA 255,255,0,255,0,255,255,0 

641 DATA 254,255,0,255,0,255,254,0 

642 DATA 0,34,34,20,20,20,28,0 
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Attacco 


Spectr upr | 




48K 


Nonostante tutte le sconfitte che certamente 
avete inpitto agli alieni in numerosi altri video 
game s. la loro Potta di invasione è ritornata 
per tentare il tutto per tutto. Questa volta do¬ 
vete però impegnarvi ed mpiggere agli extra¬ 
terrestri un colpo duro e mortale, in modo da 
cancellare una volta per tutte questa insidia 
(scocciante) dal nostro cammino! La missione 
contro gli alieni è divisa in tre parti. Innanzi¬ 
tutto bisogna distruggerne un congruo nume¬ 
ro in combattimento 'corpo a corpo': la no¬ 
stro astronave fronteggia quelle avversane (na 
turalmente una alla volta) e deve abbatterne 
un discreto numero prima di passare alla fase 
successiva. La seconda parte della missione 
consiste invece nell'attaccare nella astronave- 
madre nemica e nell'mdividuare quindi il codi 
ce di autodistruzione del computer di bordo: 
in pratica vi trovate a giocare una sorta di par 
tita a Master Mind. il cui esito può però in que¬ 
sto caso essere vitale per il nostro pianeta. La 
logica di risposta del computer alieno non è tut¬ 
tavia simile alla logica del Master Mind: è dun¬ 
que opportuno spiegare bene come interpre¬ 
tare le risposte che saranno mostrare sul vi¬ 
deo. Innazitutto è utile ricordare sin d'ora che 
inizialmente il computer è semplicemente in 
stato di allerta: questo fa si che esso mostri 
sul display non solo i codici-colore perfettamen¬ 
te corretti (con un asterisco nero), ma indichi 
con un asterisco verde anche i colori di scor¬ 
retto posizionamento. Dopo che il giocatore ha 
superato i 4000 punti il computer entra in stato 
di allerta: da questo in poi l'elaboratore non 
vi mostrerà più i colori da riposizionare (gli aste¬ 
rischi verdi), e ciò renderà naturalmente mol¬ 
to più difficile l’individuazione del codice. Ghia 


1 REM *** ATTACCO *** 

2 LET z$ = "." : LET hi = 0: LET p 

la = 0 

6 CLS : PRINT '"PARTE I: ALIENI'" ' 
"L'OBIETTIVO, IN QUESTA FASE DEL 


rito questo aspetto, spendiamo due parole cir¬ 
ca la gestione degli asterischi verdi: quando ap¬ 
pare un asterisco verde in una data posizione, 
significa che in quella posizione va uno dei co¬ 
dici da voi inseriti, ma certamente non quello 
che avete fi posizionato! Un esempio semplice 
potrà chiarire meglio tale meccanismo. Suppo¬ 
nete che il codice segreto sia 50000 e che voi 
abbiate inserito la combinazione 12345. Sullo 
schermo apparirà un solo asterisco verde (pri¬ 
ma posizione). Potreste facilmente equivocare 
e ritenere che il primo colore (I blu) sia pre¬ 
sente nel codice segreto ma vada riposiziona- 
to: invece è proprio il contrario! Certamente il 
blu non fa parte della combinazione da sco¬ 
prire, mentre nella prima posizione può anda¬ 
re uno qualunque dei restanti colori da voi in¬ 
seriti! (nel nostro esempio il 5-verde). Chi non 
si sentisse ancora pronto ad affrontare il com¬ 
puter alieno, può esaminare le linee del listato 
che operano il controllo suddetto (6030 8030) 
e può sperimentare più volte solo questa par¬ 
te del gioco con GO TO 2010 (se esce il mes- 
saggio “variable not found" battete diretta¬ 
mente LET q= 1000). Infine, dopo aver affron 
tato diverse volte le fasi I e 2, si giunge allo 
terza parte del gioco: la scoperta della posi¬ 
zione del pianeta degli alieni, e la sua distru¬ 
zione definitiva (o quasi): vi avvisiamo fin d’o¬ 
ra che prima di arrivare a tal punto dovrete 
diventare molto abili nelle due precedenti se 
ziom! Il programma, realizzato per Spectrum 
48K, deve essere salvato con SAVE “attacco" 
LINE 490, sia per renderlo autopartente, sia 
per avviarlo secondo la corretta procedura di 
miziahzzazione prevista dall'autore. 


GIOCO, E' DISTRUGGERE TUTTI GLI 
ALIENI CHE SI DISTACCANO DALLA 
ASTRONAVE-MADRE. POI..SI VEDRÀ' 

i " 

o 

7 PRINT AT 11,0;"IL MIGLIOR PUNTEG 
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GIO E' "; hi'"REALIZZATO DA ";z$: 
PAUSE 0 

8 CLS : PRINT AT 10,8 ;"Tienti pron 
to ••••**• PAUSE 1 00 

9 LET oq=0: LET beep=0: LET add=0: 

LET bonus=0: LET Iives=5 

10 BORDER 6: PAPER 0: CLS 

11 LET pig=INT (RND* 4) 

12 LET cragpig=0 

15 LET aliens=0: LET onc=0 

20 LET q-0 

21 LET jon= 4 

22 PRINT AT 21,14; INK 7;"VITE ";li 
ves 

26 LET C = 10 

27 LET y= 5 
30 LET n= 0 

40 LET r=INT (RND*10) 

45 LET big=INT (RND*25) 

47 LET snort=INT (RND*10) 

50 LET plus=INT (RND*1000) 

60 INK 6 

70 LET a=INT (RND*21) 

73 IF onc=l THEN GO TO 80 
75 IF q>=l4000 AND pla=0 THEN 
GO TO 9500 

80 IF r= 3 THEN INK 4 

81 IF snort=6 THEN INK 7: LET crag 
pig=l 

82 IF big=l5 THEN INK 5 

85 IF r= 3 THEN LET y=20 

86 IF snort=6 THEN LET y=10 

87 IF big=l5 THEN LET y=25 
90 FOR b=0 TO 28 

95 LET jon=4 

100 IF q>=oq+l500+plus THEN GO TO 1 
500 

1 01 IF q< 3000 OR q>9995 THEN 
GO TO 104 

102 LET piggy=INT (RND*10): IF piggy 
=7 THEN LET add=l 

103 IF piggy<>7 THEN LET add = 0 

105 IF q>l0000 THEN LET bonus=bonus 
+ 1 

106 IF q>l0000 THEN LET add=l 

107 IF bonus=l THEN LET lives=lives 
+1: PRINT AT 10,12; INK 6; 

FLASH 1; BRIGHT l;"BONUS": 

LET beep=-0.002 : BEEP .2,-5: 
BEEP .1,0: BEEP .2,-5: BEEP .2, 
-5: BEEP .1,0: BEEP .2,-5: CLS : 
GO TO 120 

110 IF q>=l500 THEN GO TO 120 
115 GO TO 130 

120 FOR b=0 TO 28 STEP 2 

121 IF add=0 THEN GO TO 125: LET pi 
g = INT (RND* 4) 

122 LET pig=INT (RND* 4) : IF a = 20 

THEN GO TO 124 

123 IF pig>2 THEN LET a=a+l 

124 IF pig<=2 THEN LET a=a-l 

125 LET y.= l 0 
127 LET jon=4 
1 30 LET d«28 

140 PRINT AT c,d; INK 5;"B" 

170 IF C=Ò THEN GO TO 185 

180 IF INKEY$ = "9" THEN LET c=c-l 

185 IF C = 20 THEN GO TO 1 91 


190 IF INKEY$ = "1" THEN LET C=C + 1 

191 IF cragpig=l THEN PRINT AT a,b; 
"F": BEEP .005,y 

192 IF cragpig=l THEN GO TO 196 

194 PRINT AT a,b;"I M : BEEP .005-beep 

/Y 

196 PRINT AT 0,0;" 

200 IF b>=28 THEN LET q=q-25 

210 PRINT AT 21,0; INK 7;"PUNTI ";q; 

•I M 

220 PRINT AT 21,14; INK 7;"VITE ";li 
ves 

225 PRINT AT 21,21; INK 7;" PRESI " 
; aliens 

230 PRINT AT c+l,d;" " 

240 PRINT AT c-1,d,'" " 

245 IF c+1>29 THEN LET c=c-l 
250 PRINT AT a,b;" " 

255 IF INKEY$ = "0" THEN PRINT AT C,d 
-10; INK 6;" CCCCCCCCCC ": BEEP .0 
75,-5: PRINT AT c,d-10;" 

": LET q=q-5 

260 IF INKEY$ = "0" AND a=c AND b> = 17 
THEN PRINT AT a,b; INK 2+cragp 
ig;"D": BEEP .1,1: BEEP .1,-5: 

BEEP .1,1: BEEP .1,-5: LET q=q+ 
100: LET aliens=aliens+1: 

GO SUB 300 

270 IF b=28 THEN GO TO 300 

280 NEXT b 

285 LET cragpig=0 

290 GO TO 150 

300 IF b> = 28 THEN LET 1ives = 1ives- 1 

301 LET cragpig=0 

302 IF q< 3000 OR q>9995 THEN 

GO TO 310 

310 IF lives=0 THEN PRINT AT 21,19; 

INK 7;"0": GO SUB 400 
312 CLS 

315 IF lives^O THEN GO SUB 400 
320 IF b>=28 THEN GO TO 25 
322 IF big=l5 THEN LET q=q+905: 

GO TO 350 

330 IF r= 3 THEN LET q=q+100 
340 IF snort=6 THEN LET q=q+INT ( 
RND* 4 00)+100 
350 CLS 

355 LET cragpig=0 
360 GO TO 25 

400 PAUSE 100 

401 CLS 

402 IF lives=0 THEN PRINT INK 7; 

AT 5,0; FLASH 1;" SEI STATO 
DISTRUTTO ! ! ! "; FLASH 0;AT 9 

,2;"HAI TOTALIZZATO ";q;" PUNTI" 
;AT 11,2;"E ABBATTUTO ";aliens;" 

ALIENI" 

405 BEEP 1,0: BEEP 1,2: BEEP .5,3: 

BEEP .5,2: BEEP 1 ,0 
410 BEEP 1,0: BEEP 1,2: BEEP .5,3: 

BEEP .5,2: BEEP 1 ,0 
420 BEEP 1,3: BEEP 1,5: BEEP 2,7 
430 BEEP 1,3: BEEP 1,5: BEEP 2,7 
440 BEEP .75,7: BEEP .25,8: BEEP .5, 
7: BEEP .5,5: BEEP .5,3: BEEP .5 
,2: BEEP 1,0 

450 BEEP .75,7: BEEP .25,8: BEEP .5, 
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7: BEEP .5,5: BEEP .5,3: BEEP .5 
,2: BEEP 1,0 

460 BEEP 1,0: BEEP 1,-5: BEEP 2,0 
4 70 BEEP 1,0: BEEP l-,-5: BEEP 2,0 
475 PAUSE 200 

477 INK 0: PAPER 7: CLS : IF q>hi 

THEN PRINT AT 3,4;"E' IL MIGLI 
OR PUNTEGGIO!”: BEEP .1,20: 

BEEP .2,10: BEEP .1,20: BEEP .1 
,15: BEEP .1,10: BEEP .2,20: 

BEEP .1,20: BEEP .2,10: BEEP .1 
,20 

478 IF q>hi THEN GO TO 9090 

479 IF q<hi THEN GO TO 9040 

480 GO TO 510 

490 PAPER 0: BORDER 0: CLS : PRINT 
AT 5,9; PAPER 6; INK 2; FLASH 1; 
"ATTACCO” 

495 LET hi=0: LET q=0: LET jon=0 
500 PRINT AT 17,9; PAPER 5; INK 0; 

FLASH 1;"FERMA IL NASTRO" 

505 PAUSE 125: INK 7: BORDER 6: 

PAPER 0: CLS 

507 GO TO 600 
510 CLS 

600 FOR u=l TO 7: READ p$ 

610 FOR f=0 TO 7: READ byte 

620 POKE USR p$+f,byte 

630 NEXT f 

640 NEXT u 

700 CLS 

1000 DATA "i",0,60,90,60,60,66,36,0 
1010 DATA "a",0,36,66,60,60,90,60,0 
1020 DATA "b",3,7,30,126,126,30,7,3 
1030 DATA "c",0,0,0,0,255,0,0,0 
1040 DATA "d",36,91,69,42,222,67,54,4 
3 

1050 DATA "g",0,0,7,255,255,7,0,0 
1060 DATA "f",0,24,126,219,126,24,0,0 

1300 CLS : LET hi=0: GO TO 9200 
1500 INK 7: PAPER 0: BORDER 5: CLS 
1510 PRINT AT 3,0;"HAI DISTRUTTO TUTT 
I GLI ALIENI. ORA DEVI ENTRARE N 
ELL'ASTRONAVE-MADRE E INDIVIDUAR 
E IL CODICE CHE CONTROLLA LA P 
RÒCEDURA DI AUTODISTRUZIONE. L 
E MANOVRE DI ATTRACCO SONO AUTO 
MATICHE." 

1520 PRINT '''"PREMI UN TASTO PER ATT 
RACCARE." 

1530 PAUSE 0 
1540 CLS 

1 550 FOR n= 30 TO 1 STEP -1 

1551 PRINT AT 10,1; INK 7;"{SG8}"; 

INK 2 ;AT 14,0 ;"{SG8}{SG4}";AT 6 
,0 ;"{SG8}{SG1}";AT 7,0 ;"{2SG8}"; 
AT 8,0 ;"{2SG8}";AT 9,0 ;"{2SG8}"; 
AT 10,0 ;"{SG8}";AT 11,0 ;"{2SG8}" 
;AT 12,0;"{2SG8}";AT 13,0;" 

{2SG8}" 

1553 FOR u=0 TO 5: PRINT INK 2;AT u, 
0;"{SG8}";AT u+15,0;"{SG8}": 

NEXT u 

1 554 PRINT AT 21,0; INK 2;"{SG8}" 

1 555 PRINT AT 9,2; INK 2;"{SG1}";AT 1 


0,2 ;"{SG8}"; A f 11,2; INK 2;" 

{ SG4} " 

1 560 PRINT AT !0,n; INK 5;"B " 

1570 BEEP .2,3 
1 580 NEXT n 

1590 PAUSE 50: PRINT AT 10,2; INK 2;" 

{SG8}": PAUSE 50: CLS 
1600 GO TO 2000 
1900 CLEAR 

2000 DATA 1 ,2,3,4,5,6 

2010 BORDER 5: PAPER 7: INK 0: CLS 

2020 PRINT "PARTE II: CODICE" 

2030 PRINT '"CONOSCI GlA'LE ISTRUZION 
I (S/N)?" 

2040 INPUT a$: IF a$="s" OR a$="S" 

OR a$="" THEN GO TO 2070 

2050 PRINT AT 1,0,,,," " 

2060 PRINT AT 1,0 ;"ISTRUZIONI :";AT 3, 
0;"Obiettivo di questa parte del 

gioco e' di far esplodere la 
astronave-madre scoprendo il 
codice di accesso del compute 

r . " 

2061 PRINT "All' inizio il computer 
e' in stato di ALLERTA, ma dopo 

aver distrutto un paio di astr 
onavi passera' in stato di ALLA 
RME. " 

2062 PRINT "Quando e' in ALLARME il c 
omputermostrera ' soltanto i c 
odici perfettamente corretti, m 
entre in stato di ALLERTA verrà 
nno mostrati anche quelli in 
parte corretti (asterisco verde 
) 

2063 PAUSE 0: FOR n=2 TO 21: PRINT 
AT n,0 ;" 

": NEXT n 

2064 PRINT AT 3,0;"Un asterisco nero 
indica che il colore selezionato 

in una data posizione e' quell 
o giusto. Un asterisco verde 

invece indicache uno dei colori 
selezionati deve essere ri-pos 
izionato per essere corretto." 

2065 PRINT "Per selezionare un colore 

premi i tasti numerici sopra i 
quali si trovano le scritte col 
orate. Dopo aver inserito i 5 co 
lori, le combinazioni di asteri 
schi neri e verdi ti suggerirà 
nno il codice segreto." 

2067 PRINT AT 18,1;"PREMI UN TASTO P 
ER CONTINUARE'" INK 2"'P.S.: SE 
FALLISCI PERDI UNA VITA": 

PAUSE 0 

2070 FOR n=l TO 21: PRINT AT n,0;" 

•• • 

• 

NEXT n 

2075 IF a$="n" OR a$="N" THEN 
GO TO 2085 

2080 PRINT AT 2,0 ;"Obiettivo di quest 
a parte del gioco e' di far es 
plodere la astronave-madre se 

oprendo il codice di accesso 

del computer." 
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2082 
2085 
2090 
3005 
301 0 


3020 

3030 

3040 

3050 

3060 

3070 

3080 


3090 

4000 

4020 

4030 

4040 

4042 

4044 

4046 

4048 

4050 

4060 

4070 


4080 

4090 

5000 


50 1 0 
5020 
5030 


5040 

5050 

5060 

5070 

5080 


PAUSE 0 
LET j = 0 

IF q>4000 THEN LET j=l 
BRIGHT 0 

FOR n=1 TO 18: PRINT AT n,0; 

INK 7;" 

NEXT n 

LET natwest=1 
LET a = INT (RND* 8) 

LET X = INT (RND* 8) 

LET y= INT (RND*8) 

LET aa = INT (RND*8) 

LET ssd=INT (RND*8) 

PRINT AT 2,1 4 ; " 1" ;AT 2,16;"2"; 

AT 2,18 ; "3" ;AT 2,20 ;"4";AT 2,22; 

n ^ ii 


GO TO 4020 
NEXT g 

FOR g=3 TO 15 STEP 2 
IF g=l5 THEN GO TO 5080 
PRINT AT 3,0;"1" 

PRINT AT 5,0;"2" 

PRINT AT 7,0 ;"3" 

PRINT AT 9,0 ;"4" 

PRINT AT 11,0 ;"5" 

PRINT AT 13,0 ; " 6 " 

INPUT bb: IF bb<0 OR bb>7 THEN 
GO TO 4060 

PRINT AT g,2 ; BRIGHT 1; INK bb;" 
{SG8 } ” 

INPUT cc: IF cc< 0 OR cc>7 THEN 
GO TO 4080 

PRINT AT g,4 ; BRIGHT 1; INK cc;" 
{SG8 } " 

INPUT dd: IF dd<0 OR dd>7 THEN 
GO TO 5000 


PRINT AT g,6 ; BRIGHT 1; INK dd;" 
{SG8}" 

INPUT ee: IF ee<0 OR .ee>7 THEN 
GO TO 5020 

PRINT AT g,8 ; BRIGHT 1; INK ee;" 
{SG8}" 

INPUT zx: IF zx< 0 OR zx>7 THEN 
GO TO 5040 

PRINT AT g,10; BRIGHT 1; INK zx; 
" {SG8 } " 

DATA 1,2,3,4,5,6,7,8,9,10 
GO TO 6030 

PRINT ''"SFORTUNA! Il codice era 
INK a; BRIGHT 1;"{SG8}"; 

INK x;"{SG8}"; INK y;"{SG8}"; 
INK aa;"{SG8}"; INK ssd;"{SG8}" 
: GO TO 9030 


PRINT AT g, 16;" " 

6090 IF bb=x OR dd=x OR ee=x OR zx=x 
AND CC< >x THEN PRINT AT g,16 
; INK 4;"*" 

7000 IF cc=x THEN PRINT AT g,16; 

INK 0;"*" 

7010 IF j=1 THEN GO TO 7040 
7020 IF bbOy OR ccOy OR ddOy 
OR eeOy OR zxOy THEN 
PRINT AT g,18 ;" " 

7030 IF bb=y OR cc=y OR ee=y OR zx=y 
AND ddOy THEN PRINT AT g,18 
; INK 4;"*" 

7040 IF dd=y THEN PRINT AT g,18; 

INK 0;"*" 

7050 IF j=1 THEN GO TO 7080 
7060 IF bbOaa OR ccOaa OR dd 
Oaa OR eeOaa OR zxOaa 
THEN PRINT AT g,20;" " 

7070 IF bb=aa OR cc=aa OR dd=aa OR zx 
=aa AND eeOaa THEN PRINT 
AT g,20; INK 4;"*" 

7080 IF ee-aa THEN PRINT AT g,20; 

INK 0;"*" 

7090 IF j=1 THEN GO TO 8020 

8000 IF bbOssd OR ccOssd OR dd 
Ossd OR eeOssd OR zxOss 
d THEN PRINT AT g,22;" " 

8010 IF bb=ssd OR cc=ssd OR dd=ssd 
OR ee = ssd AND zxOssd THEN 
PRINT AT g,22 ; INK 4;"*" 

8020 IF zx=ssd THEN PRINT AT g,22; 
INK 0;"*" 

8030 IF bb=a AND cc=x AND dd=y AND ee 
=aa AND zx=ssd THEN PRINT AT 18 
,10; INK 6; PAPER 1; FLASH 1;"CO 
NGRATULAZIONI": FOR d=-50 TO 50: 
BEEP .05,d: NEXT d: GO TO 9010 
8035 LET natwest=natwest+l 
8040 GO TO 4000 

8050 FOR n=1 TO 18: PRINT AT n,0;" 

» • 

• 

NEXT n' 

9000 GO TO 2090 

9010 CLS : PRINT AT 10,11 ;"ATTIVATA"; 
AT 11,11 ;"SEQUENZA";AT 12,8;"AUT 
ODISTRUZIONE!" 

9011 FOR n=0 TO 30 

9012 LET qwer=INT (RND* 7) : BORDER qwe 
r: BEEP .2,n: NEXT n 

9013 FOR n=1 TO 30: OUT 254,INT (RND* 
7): NEXT n 

9015 CLS :’ PRINT AT 10,7; "UN ALTRO AT 
TACCO!": LET q=q+1000: BEEP 2,45 


6030 IF j=1 THEN GO TO 6060 
6040 IF bbOa OR ccOa OR ddOa 
OR eeOa OR zxOa THEN 
PRINT AT g,14 ;" " 

6050 IF cc=a OR dd=a OR ee=a OR zx=a 
AND bbOa THEN PRINT AT g,14 
; INK 4;"*" 

6060 IF bb=a THEN PRINT AT q,14; 

INK 0;"*" 

6070 IF j=l THEN GO TO 7000 
6080 IF bbOx OR cc<>x OR ddOx 
OR eeOx OR zxOx THEN 


9016 IF natwest< 4 AND j*l THEN LET q 
=q+1000 

9017 IF j=1 THEN LET q=q+1000 

9018 LET oq=q 

9020 PAPER 7: BORDER 2: INK 0: CLS : 

FOR V=5 TO 0 STEP -1 

9021 PRINT INK 0 ;AT 10,3 ;"INTERCETTA 
MENTO --> ";v: BEEP ,75,14 

9024 BORDER v 

9025 NEXT v 

9026 BORDER 6: PAPER 0: CLS 
9029 GO TO 22 
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9030 LET lives = lives-1 : PAUSE 0 

9035 IF lives=0 THEN GO TO 477 

9036 IF lives>0 THEN CLS : PRINT 

AT 3,0;"NON SEI RIUSCITO A SCOPR 
IRE IL CODICE DI ACCESSO ili 

HAI PERSO UNA VITA.”: 
LET oq=q 

9038 IF lives>0 THEN PRINT AT 10,6;” 
UN ALTRO ATTACCO!": BEEP 4.5,45: 
GO TO 9020 

9040 IF lives=0 THEN CLS : PRINT 

AT 10,2;"Un'altra partita (S/N)? 

ti 

9045 INPUT a$: CLS 
9047 IF a$="s" OR a$="S" THEN 
GO TO 9200 

9050 IF a$="n" OR a$="N" THEN STOP 
9055 GO TO 9040 

9060 GO TO 22 

9100 PRINT '"'INSERISCI IL TUO NOME’" 
"(8 LETTERE AL MASSIMO)" 

9105 LET hi=q 
9120 INPUT z$ 

9122 IF LEN z$>8 THEN PRINT AT 11,9; 
"TROPPO LUNGO": PAUSE 75: 

PRINT AT 11,9;" ": 

GO TO 9120 

9124 IF z$="" THEN GO TO 9120 
9130 CLS : PRINT AT 10,10; INK 0; 

PAPER 6; FLASH l;"O.K. " ; z$ 

9140 PAUSE 150: CLS : GO TO 9300 

9200 PAPER 0: INK 7: CLS 

9201 PRINT AT 6,20 ;"9-->SU";AT 8,20;" 

1-->GIU'";AT 10,20;"0-->FUOCO" 

9205 PRINT AT 2,9;"A T T A C C O" 

9210 PRINT AT 5,1; INK 6;"I CC 100 PU 
NTI " • 

9220 PRINT AT 7,1; INK 4;"I CC 200 PU 

NTI" - 

9225 PRINT AT 9,1; INK 7;"F CC MISTER 
O ! ! " 

9230 PRINT AT 11,1; INK 5; FLASH 1;"I 
CC 1000 PUNTI" ” 

9232 PRINT AT 15,4;"BONUS DOPO I 1000 
0 PUNTI" 

9234 IF q>hi THEN LET hi=q 

9235 IF hi<1 THEN LET jon = 0 

9236 IF hi>1 THEN LET jon=4 

9240 PRINT AT 18,1;"PREMI UN TASTO P 
ER CONTINUARE": BEEP .1,5: 

BEEP .2,10: BEEP .1,-2: BEEP .1 
,5: BEEP .2,10: BEEP .1,-2: 

PAUSE 0: CLS : GO TO 2+jon 
9301 CLS : PRINT INK 2;AT 0,11;"RAPP 
ORTO" 

9305 IF q< 2000 THEN PRINT AT 4,0;"LA 
TUA PRESTAZIONE E' STATA PI 
ETOSA ! ! ! PER QUESTO MOTIVO VE 
RRAI FUCILATO ALL'ALBA !!!": 

GO TO 9366 

9310 IF q< 4000 THEN PRINT AT 4,0;"RI 
TIENITI FORTUNATO SE SCAMPI LACO 
RTE MARZIALE !!! SARESTI STATOCE 
RTAMENTE CONDANNATO PER SCARSOCO 
RAGGIO ! !!": GO TO 9366 


9320 IF q< 6000 THEN PRINT AT 4,0;"HA 
I RESO UN BUON SERVIZIO. CO 
MUNQUE, IN CASO DI BISOGNO, TICE 
RCHEREMO NOI: TU NON CERCARCI!": 
GO TO 9366 

9330 IF q<8000 THEN PRINT AT 4,0;"CO 
MPLIMENTI ! VERRAI CERTAMENTE PR 
OMOSSO COMANDANTE DELLA FLOTTAST 
ELLARE. HAI DISTRUTTO CIRCA ME 
TA' DELLA FLOTTA ALIENA E PER UN 
BEL PEZZO NON SI FARANNO PIU'VE 
DERE.": GO TO 9366 

9340 IF q<10000 THEN PRINT AT 4,0;"C 
ONGRATULAZIONI ! LA TUA ABILITA'C 
I HA SALVATI DA MORTE CERTA: H 

AI DISTRUTTO CIRCA I 3/4 DELLA F 
LOTTA ALIENA.": GO TO 9366 

9350 IF q<13000 THEN PRINT AT 4,0;"E 
CCELLENTE! LE MEDAGLIE AL VALORM 
ILITARE SONO GIÀ' IN VIAGGIO. • P 
ER 50 ANNI GLI ALIENI STARANNO B 
UONI. IL PRIMO MINISTRO VUOLE V 
EDER'TI AL TUO RIENTRO.": GO TO 9 
366 

9360 PRINT AT 4,0 ;"BRAVISSIMO ! ! ! ORA 
PUOI ANCHE RITIRARTI A VITA P 

RIVATA: HAI DISTRUTTO TUTTI GL 

I ALIENI, E NON POTRANNO MAI P 
IU' ATTACCARCI'" '"APPENA RIENTRI 
SEI ATTESO ALLE NAZIONI UNITE 
PER RICEVERE LE ONORIFICENZE C 
HE TI MERITI." 

9366 PAUSE 0 

9367 IF q>hi THEN GO TO 477 
9370 GO TO 9040 

9440 INK 0: PAPER 7: BORDER 5: CLS 
9460 RETURN 

9500 INK 5: PAPER 0: CLS : LET oq=q 

9501 LET pla=l: POKE 23609,110 

9502 PRINT '"TUTTI GLI ALIENI E L' AS 
TRONAVE-MADRE SONO STATI DISTRUT 
TI. ORA DEVI DISTRUGGERE IL LORO 

PIANETAHAI 15000 UNITA' DI CARB 
URANTE. SE RESTI 'A SECCO* PERDI 
LA POSSIBILITÀ' DI DISTRUGG 

ERE IL PIANETA.": PAUSE 0 

9503 GO TO 9710 ‘ 

9505 PAUSE 0: CLS 

9510 PRINT INK 7;AT 0,0;"ECCO IL PIA 
NETA DEGLI ALIENI...." 

9520 PRINT AT 11,28; INK 5;"B" 

9530 FOR n=0 TO 50 
9540 CIRCLE 50,87,n 
9545 INK 4 
9550 NEXT n 

9560 PRINT INK 7;AT 2,3;"PREMI < 0 > 
PER FAR FUOCO" 

9562 IF INKEY$ = "0" THEN GO TO 9570 

9565 GO TO 9560 

9570 FOR n= 27 TO 12 STEP -1 

9580 PRINT AT 11,n; INK 6;"G " 

9582 PRINT AT 11,28;"B" 

9584 BEEP .5,12 

9590 NEXT n 
9592 LET cv=20 
9595 FOR n=0 TO 65 
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9597 LET cv=cv-1 

9600 LET fin-INT (RND* 7) 

9610 BORDER fin 

961 5 BEEP .1,fin-cv 

9620 NEXT n 

9630 BEEP .3,50 

9635 INK 7: PAPER 0: CLS 

9640 PRINT AT 11,28; INK 5;"B" 

9645 PRINT AT 11,8;"CONGRATULAZIONI" 
9650 FOR u=l TO 3 

9660 BEEP .1,10: BEEP .2,15: BEEP .1, 
13: BEEP .15,14: BEEP .2,23 
9670 NEXT u 

9680 BEEP .2,14: BEEP .24,17 
9690 BEEP .2,14: BEEP .24,17: BEEP .2 
,10 

9700 BORDER 6: CLS : PRINT AT 10,1 ; M U 
N ALTRO PIANETA CI ATTACCA ! !" : 
PAUSE 200: CLS : GO TO 22 
9705 PAUSE 100: GO TO 22 
9710 PAPER 0: INK J: CLS 
9715 LET fu=l 5000 : LET pl=INT (RND*20 
) 

9730 PLOT 0,44: DRAW 255,0: PLOT 0,87 
: DRAW 255,0: PLOT 0,131: DRAW 2 
55,0 

9760 PLOT 51,0: DRAW 0,175: PLOT 102, 
0: DRAW 0,175: PLOT 153,0: 

DRAW 0,175: PLOT 204,0: DRAW 0, 
175 

9780 PRINT AT 3,2;"1"; AT 8,2;"2";AT 1 
3 ,2 ;" 3 " ;AT 18 , 2; "4" ; AT 3,8;"5"; 
AT 8,8;"6";AT 13,8 ;"7";AT 18,8;" 
8";AT 3,14 ; " 9 " ;AT 8,14 ;"10";AT 1 
3,14 ;"11";AT 18,14;"12" 

9790 PRINT AT 3,20;"13";AT 8,20;"14"; 
AT 13,20;"15";AT 18,20 ;"16”;AT 3 


, 26 ; " 1 7" ; AT 8,26 ; " 1 8 " ; AT 13,26;*' 
19";AT 18,2 6 ;"2 0" 

9800 LET we=0 

9802 FOR n=0 TO 31: PRINT AT 0,n; 

INK 5;"{SG8}";AT 1,n;"{SG8}": 
NEXT n 

9803 FOR n=0 TO 31 STEP 3: PRINT AT 2 
0,0;"INSERISCI LA DESTINAZIONE" 

9804 INPUT des: IF des>20 OR desCl 

THEN GO TO 9804 

9805 PRINT AT 0+we,n; INK 0; PAPER 5; 
des;" " 

9806 IF n=30 THEN LET we=l: LET n=0: 

PRINT AT 20,0;" 

» 

9807 LET fu= fu-1NT (RND*1000) 

9808 IF fu< = 0 THEN PAUSE 50: CLS : 

PRINT "HAI FALLITO LA TUA MISSI 
ONE !!!": BEEP .4,20: PAUSE 50: 
CLS : GO TO 22 

9809 FOR f=0 TO des: BEEP .175,des: 

NEXT f 

9810 PRINT AT 21 ,0 ;"DESTINAZIONE : ";d 
es;" BENZINA: ";fu 

9812 PAUSE 100 

9813 PRINT AT 21,0;" 

N 

9815 IF des=pl THEN PAUSE 50: CLS : 
PRINT AT 11,8; INK 6; PAPER 2; 
FLASH 1 ;"SEI ARRIVATO!!!": 

LET q=q+fu: LET oq=q: BEEP .1,3 
: BEEP .2,5: BEEP .1,3: BEEP .2, 
5: BEEP .2,10: PAUSE 100: 

GO TO 9505 

9820 IP desOpl THEN NEXT n 


Superchar 



Questo programma è un editor di caratteri pro¬ 
grammabili dotato di un vasto numero di fun¬ 
zioni per l'editing dei caratteri stessi, che ren¬ 
dono tutto il procedimento estremamente sem¬ 
plice: esiste ad esempio una funzione di copia, 
una di inversione, ed il modo di salvare e cari¬ 
care dalla memoria di massa interi set di ca¬ 
ratteri. 


ISTRUZIONI 

1. Digitate il programma e salvatelo su nastro 
o disco. 

2. Digitate RUN e preparatevi ad attendere cir¬ 
ca 20 secondi, il tempo necessario a trasferire 
il set di caratteri da ROM a RAM. 

Quando il programma avrà finito di inzializzar- 
si, mostrerà sul video la schermata dell'editor. 


2 










Lo schermo è suddiviso in cinque aree distin¬ 
te: 

* Areo di visualizzazione del set di caratteri: 
mostra l'intero set di 128 caratteri disponibili 
per modifiche. 

* Lineo di comando: quest'area attende co¬ 
mandi dell'utente ed è usata inoltre per l'in¬ 
gresso dati. 

* Griglia caratteri: muovendo il cursore lungo 
questa griglia si possono creare nuovi caratteri 
ed automaticamente immagazzinarli in memo¬ 
ria. 

* Visualizzazione tasti funzione: quest'area vi¬ 
sualizza i quattro tasti con i comandi ad essi 
associati. Premendo F8 (SHIFT+F7) verranno 
rivelati ulteriori otto comandi. Il tasto F8 serve 
appunto a passare da un set di comandi al¬ 
l'altro. In tutto, ci sono ben 14 differenti co¬ 
mandi di editing. 

* Spazio di lavoro: quest'area è riservata per 
verificare in dimensioni normali i caratteri crea¬ 
ti, in varie combinazioni. Si può accedere a que¬ 
st'area premendo F7 nel primo set di comandi. 
Ecco una breve descrizione di tutti i comandi 
disponibili: 

* EDIT: dopo aver premuto il tasto EDIT ap¬ 
parirà un cursore lampeggiante nella griglia. Es 
so può essere spostato in qualsiasi posizione 
della griglia con i normali tasti cursore. Premen¬ 
do la barra spaziatrice si invertirà il bit che si 
trova sotto il cursore, vale a dire che se il bit 
è acceso verrà spento, e viceversa. Per uscire 
dal modo edit è sufficiente premere uno qua¬ 
lunque degli altri tasti di comando. È inoltre 
possibile cambiare il carattere visualizzato nella 
griglia premendo semplicemente il tasto corri¬ 
spondente al carattere che si desidero visua¬ 
lizzare. 

* SAVE: questo tasto permette di salvare i set 
di caratteri su nastro o disco. 

Il nome del file è limitato a sei lettere, ed il pro¬ 
gramma aggiunge automaticamente il suffisso 
"CHR" per rendere immedaitamente identifi¬ 
cabile un set caratteri sulla directory del disco. 
Dopo aver digitato la sesta lettera del nome 
del file, inizia automaticamente il salvataggio. 
Una volta completato quest'ultimo, il program¬ 


ma vi chiederà nuovamente di premere un ta¬ 
sto di comando. 

LO AD: il comando LO AD funziona esatta¬ 
mente come il comando SAVE. Una volta cari¬ 
cato da nastro o disco un set di caratteri, que¬ 
sto prenderà immediatamente il posto di quel¬ 
lo precedentemente visualizzato sullo schermo. 

* COPIA: per copiare un carattere è sufficien¬ 
te premere il tasto corrispondente al carattere 
che si desidera sostituire: esso verrà visualiz¬ 
zato nella griglia. 

Quindi premete F4 e vi verrà richiesto quale 
carattere desiderate copiare: con la pressione 
del tasto relativo a quel carattere si otterrà la 
sostituzione, sia nella griglia che nel set, del vec¬ 
chio carattere con quello nuovo. 

* CANCELLA: questo comando cancella il ca¬ 
rattere che si trova attualmente nella griglia, 
ponendo a 0 tutti i bit. 

* RIEMPI: è l'opposto di cancella, e pone ad 
I tutti i bit del carattere attualmente nella gri¬ 
ppa. 

LAVORO: con la pressione di questo tasto, 
l'area di lavoro permette di visionare in varie 
combinazioni i caratteri creati. In questo "mo¬ 
do di lavoro", i tasti di cursore non solo prov¬ 
vedono allo spostamento dello stesso nella gri¬ 
glia, ma cancellano inoltre tutto ciò su cui possa 
il cursore, dotandovi di una funzione di can¬ 
cellazione bidirezionale. 

* FUNZIONE: modifica i comandi ottenuti con 
la pressione dei tasti di funzione, permetten¬ 
do di accedere al secondo set di comandi. 

* INVERTI: questo comando inverte tutti i bit 
di un carattere, ponendo ad I quelli che si tro¬ 
vano a 0 e ponendo a 0 tutti quelli che si tro¬ 
vano ad I. 

ROVESCIA: questo comando rovescia com¬ 
pletamente un carattere in senso verticale. 

* RUOTA: ruota il carattere da sinistra verso 
destra. 

* SCORRI: provoca uno scorrimento bit per bit 
del carattere in una delle quattro direzioni pos¬ 
sibili. I bit che escono da un bordo del caratte¬ 
re vengono rivisualizzati dalla parte opposta. 


10 REM CAMBIO' PUNTATORI SCHERMO 20 REM 
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21 PRINTCHRS (8) ; 

30 POKE56 578,PEEK(56578)OR3 
40 POKE56576,(PEEK(56576)AND252) 
ORO 

50 POKE53272, (PEEK(53272)AND240) 
OR 2 

60 POKE648 ,1 96 : FF“0 
70 REM 

80 REM TRASFERIMENTO SET CARATTE 
RI 

90 REM 

100 POKE56334 , PEEK(563 34)AND254 

110 POKE1/PEEK(1)AND251 

120 FORR-53248TOS5296 

130 POKER-2048,PEEK(R) :NEXT 

140 POKE1 / PEEK(1)OR4 

150 POKE56334,PEEK(56334)ORI 

160 REM 

170 REM DEF. CARATTERI GRIGLIA 
175 LZ$(0)«"O":LZ$(1)="{RVS} 
{OFF}" 

180 REM 

190 CG$ = "{HOME}{ 7 GIU'} 

{ 6 DES}" 

195 CF$«"{HOME}{ 7 GIU'} 

{ 6 DES}" 

200 FORR=0TO7 

210 CGS“CG$+"{ 8 0}[<G>1{GIU*} 

{ 9 SIN}" 

215 CF$»CF$+"{RVS}{ 8 SPAZI} 

{OFF}I<G>]IGIU'}{ 9 SIN)":NE 
XT 

220 CG$»CG$ !•" ( < 8 T>} " 

225 CF$-CF$+"[< 8 T>]" 

230 REM 

240 REM DEF. VISUALIZZAZIONE CAR 
ATTERI 
250 REM 

260 CD$“"@ABCDEFGHIJKLMNOPQRSTUV 
WXYZ" 

270 CDS-CDS+"{£)t- i"+CHRS(34) 
280 CD$-CD$ + "#$%S, •() * + ,-./" 

290 CD$“CD$+"0123456789:;<->?*AB 
CD" 

300 CDS-CD$+"Z+[<->)-J<f>J [<*>} 
[<K>1 (<I>rr<T>) {<@>1 [<G> J 
{<+>} (<M>) [< £>)£{<N>} [<Q>1 
{<D>} [< Z>1 [<S>]" 

310 CD$“CD$+"EFGHIJKJKLMNOPQRST 
UVWXYZ " 

320 CD$«CD$+" [<P>] [<A>} [<E>1 
{<R>) [<W>] {<H>] [<J>1 [<L>J 
[<Y>1 [<U>1 1<0>}@!<F>) I<C>] 
1<X>) (<V>) [ <B> )" 

330 REM 

340 REM DEF. TASTI FUNZIONE 

350 REM 

351 FORR«1TO30:S$*SS+"{DES}":NEX 
T 

360 FORN=1T08STEP2 

370 K$(N)="{ 2 DES}(< 5 I>) 

{GIU* )l 5 SIN) {RVS) F"+STRS ( 
N) + " {GIU'}{ 7 SIN){OFF} 


[<M>]{RVS}(< 7 I>]{OFF){<G>} 
•• 

380 K$ (N + 1 ) «" (<M>1 {*RVS} £ F"+STR$ 
(N+l) +" (<*>}(OFF)1<G>)" 

390 P$(N)*" { 2 DES){<A>) { 3 *} 

[ <S>} {GIU'}{ 5 SIN}HF"+STR$( 
N)+"B{GIU'}{ 7 SIN)ToFF) 
[<M>T {<Z>|{ 3 M { <X >} {OFF} 
(<G>) " 

400 P$ (N + l ) =*" [<M>] N F" * STRS (N+1 ) 
+" M{OFF}1<G>)IG1U'} 

{ 8 SIN}[< 7 T>1{DES){SU}":N 
EXT 
405 REM 

410 REM DEF. POSIZIONE TASTI 
4 1 5 REM 

420 FORR“1T08: K$(R)■ " { 7 GIU'} 

{ 31 DES}"+K$(R):NEXT 
430 FORR=1T07STEP2:K$(R)»"{HOME} 
"+SP$+K$(R):SPS“SP$+" 

{ 4 GIU'}":NEXT 

440 SP$ = ''{ 3 GIU' }" : F0RR-2T0 8STE 
P2:K$(R)="{HOME}"+SP$+K$(R): 
SPS»SP$+"{ 4 GIU'}":NEXT:SP$ 

_ Il II 

450 FORR=1T08:P$(R)="{ 7 GIU'} 

{ 31 DES}" + P$(R) :NEXT 
460 FORR = 1T07STEP2:P$(R) {HOME} 
"+SP$+P$(R):SP$=SP$+" 

{ 4 GIU'}":NEXT 

470 SP§="{ 3 GIU'}":FORR=2TU8STE 
P2:P$(R)="{HOME}" + SPS +P$(R): 
SP$»SP$+"{ 4 GIU'}":NEXT 
480 REM 

490 REM ***DEFINIZIONE MESSAGGI 
500 RtM 

510 M$(1)-"{HOME}{ 8 GIU'} 

{ 22 DES}ED IT....( 2 GIU'} 

{ 8 SIN}SAVE....{ 2 GIU'} 

{ 8 SIN}" 

520 M$ (1)-M$(1)+"LOAD.... 

{ 2 GIU'}{ 8 SIN(COPIA... 

{ 2 GIU'}{ 8 SIN)CANCELLA 

{ 2 GIU' } { 8 SIN}'' 

530 M$(1)=M$(I)+"RIEMPI.. 

{ 2 GIU'}{ 8 SIN)LAVORO.. 

{ 2 GIU'}{ 8 SIN)FUNZIONE" 
540 M$(2)»"(HOME){ 8 GIU'} 

{ 22 DES}ROVESCIA{ 2 GIU'} 

{ 8 SIN}INVERTI.{ 2 GIU'} 

{ 8 SIN}" 

550 MS(2)“M$(2)+"RUOTA... 

{ 2 GIU'}{ 8 SIN}SCROLL D 
{ 2 GIU'}{ 8 SIN(SCROLL S 
{ 2 GIU'}{ 8 SIN)" 

560 M$(2)=M$(2)+"SCROLL A 

{ 2 GIU'}{ 8 SIN}SCROLL B 
{ 2 GIU'Jl 8 SIN}FUNCTION" 
570 REM 

580 REM *»*DEF. LINEE * 

590 REM 

600 L$«"{HOME}{ 4 GIU'}{ 40 *} 
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{GIU ' }" 

610 L$»L$+"{ 20 M{<R>]{ 19 *} 
{DES}" 

620 L$-L$+"{ 19 DES }-JGIU '){SIN} 
-{GIU'}{SIN}-{GIU’}{SIN}- 

Tgiu • ) {sinJ-Tgiu' } {SIN} 

{GIU'}{SIN}-{GIU'}{SIN}- 
{GIU* j{SINU{GIU'}{SIN)T<W>] 
{GIU*){SIN}^{GIU'}{S1N}- 
{GIU'}{SIN}-{GIU'}{SIN}-" 

630 L$-L$+"{GIU'}{SIN}—{GIU' } 
{SINICI GIU'} {SIN}-TgIU' } 
{SIN}_-{ 8 SU) { 21 SIN} 

{ 20 M{HOME}" 

900 REM 

910 REM VISUALIZZAZIONE SCHERMO 
920 REM 

930 PRINT"{CLR}";CD$:PRINTCGS:PR 
INTL$:PRINTMS(1) 

940 REM 

941 REM EDIT CARATTERI 

942 REM 
945 A$="P" 

1000 REM 

1010 REM VISUALIZZAZIONE TASTI F 
UNZIONE 
1020 REM 

1025 POKE55753,14 

1030 PRINT"{HOME}";:FORR-lTO8:PR 
INTK$(R) ; :NEXT:PRINT"{HOME} 

M . 

1040 A(0)-1: A(1)-3:A(2)-5:A(3)»7 
:A(4)-2:A(5)-4:A(6)-6:A(7)- 
8 

1 04 5 GOTO 108 7 
1050 REM 

1060 REM **» INTRODUZIONE SCELTE* 
1070 REM 

1080 PRINT"{HOME}{ 5 GIU'JPREMI 
SCELTA{ 2 SPAZI): 

{ 23 SPAZI}" 

1082 GETA$:IFAS-""THEN 1080 

1084 REM 

1085 REM CONTROLLO TASTIS 

1086 REM 

1087 VA»ASC(A$) 

1 088 1F(VA< 320RVA> 22 3)THEN1080 

1089 IF(VA>95ANDVA<133)THEN 1080 

1090 IF(VA>140ANDVA<161)THEN 108 
0 

1091 IF(VA>14 0ORVA< 132)THEN 1205 
1120 REM 

1130 PRINTP$(A(ASC( A$ )- 1 33) ) 

1140 FORR-0TO99:NEXT 

1150 PRINTKS(A(ASC(AS)-l 33) ) ;" 

{HOME}"; 

1160 GOTO1390 
1180 REM 

1190 REM CONVERSIONE ASC IN COD. 
SCHERMO 


1200 REM 
1205 LT=VA 

1210 IFVA>31ANDVA<64THEN SC-VA:G 
OTO 1240 

1 220 IFVA>63ANDVA<193THENSC-VA-6 
4 :GOTO1240 

1 230 IFVA>191ANDVA<224THEN SC-VA 
-128 :GOTOl240 
1240 REM 

1250 REM VISUALIZZAZIONE CARATTE 
RE 

1260 REM 

1262 LT$=STR$(LT):LT$-RIGHT$(LT$ 
,LEN(LT$)-1 ) 

1265 PRINT"{HOME}{ 5 GIU'}CARATT 
ERE : CHR$(";LT$;") 

{ 17 SPAZI}" 

1270 POKE50633,SC 

1273 PRINT"{HOME}{ 7 GIU'} 

{ 6 DES}"; 

1275 PRINT"{HOME}{ 5 GIU'}CARATT 
ERE : CHR$(";LT$;") 

{ 17 SPAZI}" 

1 276 POKE50633,SC 

1277 PRINT"{HOME}{ 7 GIU'} 

{ 6 DES)"; 

1 278 FORR-0TO7 

1 279 RR = PEEK(R+(51 200 + 8*SC)) 

1 280 PRINTLZ$(ABS((RRANDl28)-1 28 
)) ;LZ$(ABS((RRANU64)-64) ) ;L 
Z$(ABS((RKAND32)-32)); 

1281 PRINTLZ$(ABS((RRANDl6)-1 6) ) 

;LZ$(ABS((RRAND8)-8)) ;LZ$ (A 
BS((RRAND4)-4)); 

1282 PRINTLZS(ABS((RRAND2)-2) ) ;L 
Z$(ABS((RRANDl)-1));"{GIU'} 
{ 8 SIN}";:NEXT:GOTO 1080 

1350 GOTOl080 
1360 REM 

1370 REM TASTI FUNZIONE SPECIALI 
1380 REM 

1390 IFFF-1THEN 1500 
1400 ONA(ASC(A$)-133)GOTO2005,14 
33,1443,1453,1462,1472,1483 
,1493 

1410 GOTOl170 

1430 REM 

1431 REM SAVE DI UN CARATTERE 

1432 REM 

1433 PRINT"{HOME}{ 5 GIU'JSAVE S 
U CASSETTA O DISCO? (C/D): 

{ 6 SPAZI}" 

1 434 GETQ$:IFQ$ = ""THENl 4 34 

1435 IPQ$0"C"ANDQ90"D"THEN 108 
7 

1436 GOTOl760 

1440 REM 

1441 REM LOAD DI UN CARATTERE 

1442 REM 

1443 PRINT"{HOME}{ 5 GIU’jLOAD D 
A CASSETTA O DISCO? (C/D): 
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{ 4 SPAZI}" 

1444 GETQS:IFQ$-""THEN 1444 

1445 IFQ$<>"C"ANDQ$<>"D"THEN 108 
7 

1446 GOTO1910 

1450 REM 

1451 REM COPIA DI UN CARATTERE 

1452 REM 

1453 PRINT"{HOME}{ 5 GIU'}lNTR.C 
ARATTERE DA COPIARE 

{ 13 SPAZI}" 

1 454 GETCAS: IFCA$“""THEN 1454 

1 455 GOTO 1605 

1456 IFCAS-""THEN 1454 

1459 G0T01275 

1460 REM 

1461 REM CANCELLAZIONE DI UN CAR 
ATTERE 

1462 PRINT"(HOME){ 5 GIU'lCANCEL 
LA CAR.: CHR$(";LT$; H ) 

{ 12 SPAZI}" 

1463 H=51200+8*SC 

1 464 FORR^HTOH+7: POKER,0 :NEXT 
1465 PRINTCGS:GOTOl080 

1470 REM 

1471 REM RIEMPI UN CARATTERE 

1472 PRINT"{HOME}l 5 GIU‘}RIEMPI 

CAR.:CHR$(";LT$;") 

{ 17 SPAZI}" 

1473 H*51200+8*SC 

1 474 FORR-HTOH+7: POKER,255: NEXT 
1475 PRINTCF$: GOTO 1080 

1480 REM 

1481 REM GOTO AREA LAVORO 

1482 REM 

1483 PRINT"{HOME}{ 5 GIU'JSPAZIO 

LAVORO INS.Ì 22 SPAZI}" 

1484 GOTO2705 

1490 REM 

1491 REM SET FUNZIONE INSERITO 

1492 REM 

1 493 FF«1 :PRINTM$(2) : GOTO1080 
1499 RETURN 

1 500 ONA(ASC(A$)-13 3)GOTO 1 523,1 
532,1 542,1 551 ,1 561 , 1 572,1 58 
2,1593 

1 510 GOTOl170 

1520 REM 

1521 REM ROVESCIAMENTO CARATTERE 

1522 REM 

1 523 PRINT"{HOME}{ .5 GIU'jROVESC 

IA CARATTERE{ 21 SPAZI}" 
1524 H=51200+8*SC 
1 52 5 FORR-HTOH+7: POKER, 255-PEEK( 
R):NEXT 

1529 GOTOl275 

1530 REM 

1531 REM INVERSIONE CARATTERE 

1532 PRINT"{HOME}{ 5 GIU'JINVERT 
1 CARATTERE :{ 17 SPAZI}" 

1533 H=51200+8*SC 


1 534 FORR-HTOH+7:T(R-H)“PEEK(R) : 
NEXT 

1535 FORR=HTOH+7:POKER,T(7-(R-H) 
) :NEXT:GOTO 1275 

1540 REM 

1541 REM ROTAZIONE DI UN CARATT 
ERE 

1542 PRINT"{HOME}{ 5 GIU 1 {RUOTA 
CARATTERE :{ 19 SPAZI}" 

1543 FORU-51200+8*SCTO(51200+8*S 
C)+7 

1544 Z=PEEK(U) 

1545 R=128*(ABS((ZANDl)=1))+64*( 
ABS((ZAND2)-2))+32*(ABS((ZA 
ND4)=4)) 

1546 R=R+16*(ABS((ZAND8)“8))+8*( 
ABS((ZANDl6)«16))+4*(ABS((Z 
AND32)* 32)) 

1 547 R=R+ 2*(ABS((ZAND64)“64) ) + 1 * 
(ABS((ZANDl28)»128)) 

1548 POKEU,R 

1549 NEXT:GOTOl275 

1550 REM SCROLL DESTRO 

1551 PRINT"{HOME}{ 5 GIU’lSCROLL 

VS DESTRA{ 22 SPAZI}" 

1552 FORU = 51 200 + 8*SCTO(51 200 + 8*S 
C)+7 

1553 R=(PEEK(U)/2) 

1554 IFPEEK(U)/2<>INT(PEEK(U)/2) 
THENR-R+l28 

1555 POKEU,R 

1556 NEXTiCOTOl275 

1560 REM SCROLL SINISTRO 

1561 PRINT"{HOME}{ 5 GIU'JSCROLL 

VS SINISTRA} 21 SPAZI}" 

1 56 2 FORU-51 200 + 8*SCTO(51 200+8*S 
C) +7 

1 563 R = PEEK(U)* 2 

1 564 IFPEEK(U)“>12 8THENR-R+1 

1 565 IFR> 255THENR = R-256 

1566 POKEU,R 

1567 NEXT:GOTOl275 

1 570 REM 

1571 REM SCROLL ALTO 

1572 PRINT"{HOME}{ 5 GIU'JSCROLL 

VS ALTO{ 25 SPAZI}" 

1573 FORR=0TO7 

1574 Y(R)=PEEK(R+51200+8*SC):NEX 
T 

1575 FORR=0TO6 

1576 POKER+51200+8*SC,Y(R+l):NEX 
T 

1577 POKE51207+8*SC,Y(0) 

1579 GOTOl275 

1580 REM 

1581 REM SCROLL BASSO 

1582 PRINT"{HOME}{ 5 GIU’JSCROLL 

VS BASSO{ 24 SPAZI}" 

1583 FORR-0TO7 

1584 Y(R)“PEEK(R+51200+8*SC):NEX 
T 

1585 FORR=1T07 

1 586 POKER+51200 + 8*SC,Y(R-1 ) :NEX 
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T 

1 587 P0KE51 200+8*SC»V(7) 

1589 G0T01275 

1590 REM 

1591 REM SET FUNZIONE INSERITO 
1 592 REM 

1 593 FF = 0 :PRINTMS{1):GOTOl080 

1599 RETURN 

1600 REM 

1601 REM COPIA DI UN CARATTERE 

1602 REM 

1605 DA-ASC(CAS) 

1610 IF(DA< 320RDA>223)THENl4 56 
1620 IF(DA> 95ANDDA<133)THEN14 56 
1 630 IF(DA<141ANDDA>13 2)THENAS -C 
A$:GOTOl080 

1 640 IF(DA>14 0ANDDA<161)THENRETU 
RN 

1650 PRINT"{HOME){ 5 GIU 1 ) 

{ 25 DES)";CA$ 

1660 IFDA>31ANDDA<64THENSD=DA:GO 
TOl690 

1670 IFDA>63ANDDA<193THENSD-DA-6 
4 :GOTOl690 

1680 IFDA>191AUDDA<224THENSD»DA- 
128:GOT01690 

1 690 VJ = 51200 + 8*SD :JJ“51200+8*SC 
1700 FORR-0TO7 

1710 POKEJJ+R,PEEK(VJ+R):NEXT 
1720 GOTO 1456 
1730 REM 

1740 SAVE DI UN CARATTERE 
1750 REM 

1760 PRINT"{HOME){ 5 GIU'JSAVE: 

NOME FILE-CHR 

t 8 SPAZI}{HOME}{ 5 GIU') 

{ 16 DESI"; 

1770 LL«0:NM$="" 

1775 FORR-0TO30:PRINT"{RVS)- 
{OFF){SIN ) “; 

1 780 GETAS: IFA$ = ""THEN NEXT 
1790 IFA$<>""THENl840 
1800 FORR-0TO30:PRINT"-{SIN)"; 
1810 GETAS:IFA$»""THEN NEXT 
1820 IFA$<>""THEN 1840 
1830 GOTOl775 

1 840 IFA$=CHR$( 20)ORA$=CHR$(148) 
ORAS-CHRS(13)ORA$«CHR$(34)0 
RA$ = "{SU)"THENl77 5 
1 845 IFA$ = "{GIU *)"ORA$«"{DES)"OR 
A$="(SIN)"THENl775 
1847 IFASC(A$)>132ANDASC(A$)<141 
THEN 1080 
1850 PRINTAS; 

1855 NMS=NM$+A$:LL=LL+1:IFLL-6TH 
EN 1870 
1860 GOTOl775 
1870 NMS=NM$+".CHR" 

1875 IFQ$»"C"THEN 1890 
1 880 OPEN 1,8,4,NMS+",W" 

1885 FORR-51200TO52224 


1887 PRINTIl,PEEK(R):NEXT 

1889 CLOSE1: GOTO 1275 

1890 OPENl,1,1,NM$:GOTOl885 

1900 REM 

1901 REM LOAD DI UN CARATTERE 

1902 REM 

1910 PRINT"{HOME}{ 5 GIU')LOAD: 

NOME FILE-CHR 

{ 8 SPAZI){HOME){ 5 GIU') 

{ 16 DES}"; 

1915 LL-0:NM$="" 

1920 FORR=0TO30:PRINT"{RVS)- 
{OFF){SIN)"; 

1925 GETAS:IFA$=""THEN NEXT 
1930 IFA$<>""THEN 1955 
1 935 FORR-0TO30:PRINT"-{SIN}"; 
1940 GETAS:IFA$»""THEN NEXT 
1945 IFA$<>""THEN 1955 
1950 GOTOl920 

1955 IFA$»CHR$(20)ORA$=CHRS(148) 
ORAS-CHRS(13)ORAS-CHRS(34)0 
RAS-"{SU)"THENl920 
1960 IFAS-"{GIU')"ORA$-"{DES}"OR 
A$ = "(SIN)"THEN1920 
1965 IFASC(AS)>132ANDASC(A$)<141 
THEN 1080 
1970 PRINTAS; 

1975 NM$-NM$+A$:LL-LL+1:IFLL-6TH 
EN 1980 

1976 GOTOl920 

1980 NMS-NMS+".CHR" 

1985 IFQ$-"C"Tlu.N 1999 

1987 OPENl,8,4,NM$+",R" 

1988 FORR-51200TO52224 

1989 INPUT#1,VL:POKER,VL:NEXT 

1990 CLOSE1:GOTOl275 

1999 OPENl,1,1,NM$:GOTOl885 

2000 REM 

2001 REM EDIT CARATTERE 

2002 REM 

2005 PRINT"{HOME){ 5 GIU'jMODO E 
DIT : CHRS(";LTv;") 

{ 14 SPAZI}" 

2010 PRINT"{HOME){ 8 GIU’) 

{ 8 DES}“; 

2015 LO=50462:SV=PEEK(LO):SM»(51 
200+(8*SC)):EX=7:GT*SC 
2020 FORR-0TO30:POKELO,SV 
2030 GETAS:IFAS-""THEN NEXT 
2040 IFA$<>""THEN 2090 
2050 FORR-0TO30:POKELO,102 
2060 GETAS:IFAS»""THEN NEXT 
2070 IFAS<>""THEN 2090 
2080 GOTO2020 

2090 IFAS*"{SU)"THEN 2200 

2091 IFA$«"{GIU')"THEN 2100 

2092 IFAS-"(SIN)"THEN 2300 

2093 IFAS-"{DES)"THEN 2400 

2094 IFA$-CHR$(32)ANDSV-160THEN2 
500 

2095 IFAS-CHRS(32)ANDSV-79THEN26 
00 

2099 POKELO,SV:GOTO1087 
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2100 POKELO,102:FORR*0TO40:NEXT 
2110 IFGT=SC+7THEN2020 
2120 POKELO,SV:LO*LO+4 0 :GT*GT+1 : 
SV=PEEK(LO):SM-SM+1:GOTO202 
0 

2200 POKELO,!02:FORR-0TO40:NEXT 
2210 IFGT*SCTHEN2020 
2220 POKELO,SV:LO*LO-40 :GT=GT-1 : 
SV-PEEK(LO):SM*SM-1:GOTO202 
0 

2300 POKELO,102:FORR»0TO40:NEXT 
2310 IFEX*7THBN2020 
2320 POKELO,SV:LO=LO-1:EX=EX+1:S 
V=PKEK(LO):GOTO2020 
2400 POKELO,102:FORR-0TO40:NEXT 
2410 IFEX=0THEN2020 
2420 POKELO,SV:LO*LO+1 :EX=EX-1 :S 
V-PEEK(LO):GOTO2020 
2500 POKELO,79:POKESM,PEEK(SM)-( 
2 t EX) :SV*79 :GOTO20 20 
2600 POKELO,160:POKESM,PEEK(SM)+ 
(21 EX):SV*160:GOTO2020 

2700 REM 

2701 REM SPAZIO DI LAVORO 

2702 REM 

2705 HZ*0:LZ=0 

2710 PRINT"(HOME}( 17 giu'}"; 
2720 FORR-0TO30:PRINT"(RVS} 

(OFF}(SIN)"; 

2730 GETA$: IF A$ »""THEN NEXT 


2740 IF A$ < >""THEN 2790 

2750 FORR*0TO30:PRINT" {SIN}"; 
2760 GETA$:IFA$=""THEN NEXT 
2770 IFA$< >“"THEN 2790 
2780 GOTO2720 

2790 IFA$*CHR$(20)ORA$=CHR$(148) 
ORAS =CHR$(13)ORA$=CHR$(34)T 
HEN2720 

2810 IFASC(A$)>132ANDASC(AS)<141 
THENPRINT" ";:GOTO1087 
2820 IFA$*"(SU}"THEN3200 
2830 IFA$ = “(GIU *}*THEH3100 
2840 IFA$=“{SIS}“THEN3300 
2850 IFA$*“{DBS}"THEN3400 
2860 IFHZ<! 8ANDLZ<6THENPRINTA$; : 

HZ=HZ+1:GOTO2720 
2870 IFH Z = 1 8 ANDT.Z< 6THEN 272 0 
2880 IFHZ=18ANDLZ»6THEN2720 
3100 IFLZ = 6T1IEN27 20 
3110 PRINT" {SIN}(GIU*)";:LZ-LZ+ 
1 : GOTO27 20 
3200 IFLZ=0THEN2720 
3210 PRINT" {SIN}(SU}“;:LZ*LZ-1: 
G0T027 20 

3300 IFHZ=0THEN2720 
3310 PRINT" { 2 SIN}";:HZ*HZ-1:G 
OTO2720 

3400 IFHZ=18THEN2720 
3410 PRINT" (SIN}(DES}";:HZ»HZ+1 
:GOTO2720 


Catapulta 



Ti trovi nei panni del principe Valiant, che de¬ 
ve lottare contro un enorme drago, S mdar, il 
quale ha deciso di arrostirlo con le sue fiam¬ 
me. L'unica arma di cui il principe dispone per 
difendersi dal drago è una catapulta. Egli de¬ 
ve correre al deposito delle pietre, che si trova 
sulla sinistra dello schermo, e portarne una fi¬ 
no alla catapulta. A questo punto può far par¬ 
tire il proiettile, con tre possibilità di lancio: lun¬ 
go, medio o corto. 

Valiant deve colpitre il drago esattamente sul¬ 
la testa: solo in tal modo S mdar non sarà più 
in grado di nuocere. Al primo livello è sufficiente 


una solo pietra ben assestata, mentre passan¬ 
do al secondo ce ne vogliono due, al terzo tre 
e così via. Il gioco è reso difficile dal fatto che 
il drago si muove continuamente (perciò è dif¬ 
ficile centrarlo), e sputa fuoco sul muro di mat¬ 
toni che costituisce l'unica difesa di Va- 
liant. In breve tempo il muro viene distrutto e 
Smdar ho via libera, ponendo fine alla partita. 
Quindi, forza con le pietre! 

I comandi vengono impartiti tramite la tastie¬ 
ra: ZeC muovono Valiant rispettivamente ver¬ 
so sinistra e verso destra, FI, F3 e F5 fanno 
partire nell’ordine un lancio lungo, uno medio 
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e uno corto. Viene inoltre assegnato un pun¬ 
teggio nel modo seguente: 5 punti se una pie¬ 
tra finisce sul corpo del drago, IO se colpisce 
la testa ed infine un bonus di 50 punti com¬ 
pletando ogni livello. 

Questo gioco è composto da due programmi, 


programma I 

IO PH J NT"{CLR}":POKE51,0:POKE52, 
28 :POKE55,0:POKE56,28:CLR:CB= 
7168 

20 READA : IFA=-1THEN200 
30 FOKN»OTOV:READB:POKECB+A*8+N, 
B:NEXT:GOTO20 

40 DATAO,255,129,255,165,165,255 
,129,255 

45 DATAI,24,24,64,56,24,42,68,32 

50 DATA2,24,24,2,28,24,84,34,4 
55 DATA3,0,0,0,0,24,36,36,24 
60 DATA4,0,0,0,28,226,65,255,255 

65 DATA5,96,112,8,4,2,1,255,255 
70 DATA6,3,3,1,1,1,1,255,255 
75 DA'1'A7,72,255,1 8,255,1 36,255,1 
/, 255 

80 DATA8,0,0,92,171,116,0,0,0 
8 5 DATA9,0,6,13,118,128,241 ,1 26, 

7 

90 DATA10,36,109,255,0,193,2,60, 
207 

95 DATAI 1 ,1 34,1 31 , 1 97,57,2,4,1 20 
,128 

programma 1 

2 PRINT"{CLR}":U = 36878:POKEU+1 ,8 
:GOSUB6000 
5 QA=QA+1 

10 PRINT"{CLR}":POKEU+1,8:GOSUB2 
000 :GOSUB7000 
20 ONMGOTO40,70 
30 M=1 : GOTO20 

40 A% = PEEK(197) :IFA%= 33THKNA=A-1 
:MA=1:DI=1 

45 IFPEEK(A)=0THENA=A+1:K-1:ZT-3 

50 IFA%= 34THENA=A+1:MA»2:DI=-1 
55 IFPEEK(A)-4ANDR=1THENR-0:M=2: 
ZT=32 

60 IFPEEK(A)=4THENA“A-1 
65 POKEA,MA:POKEA+C,1sPOKEA-21,Z 
T:POKEA+C-21,4 :POKEA-21+DI,32 
:POKEA+DI,32:GOTO150 

70 IFS=1THEN95 

71 A%=PEEK(197):IFA%«39THENF=802 
2:GOTO85 


che devi digitare e salvare su nastro uno di se¬ 
guito all'altro: Un. I memorizza i caratteri ri- 
definiti e carica in memoria Un. 2 (il gioco ve¬ 
ro e proprio), che parte automaticamente. 
Quindi l'unica cosa che devi fare è caricare il 
programma n. I e battere RUN . 


96 DATAI 2,96,86,45,22,8,17,46,55 

100 DATA32,0,0,0,0,0,0,0,0 
110 DATA13,1,7,15,63,63,127,127, 
255 

120 DATAI 4,1 28,240,248,248,252,2 

52.254.255 

130 DATAI 5,2 55,255,255,255,255,2 

55.255.255 

135 DATA16,0,0,1,7,15,31,31,63 
140 DATAI 7, 0,0,1 28, 224, 2 40,248, 2 
48,252 

145 DATAI 8,63,31,31,15,7,1 ,0,0 
1 50 DATAI 9,252,248,248,240,224,1 
28,0,0 

155 DATA20,16,31,22,29,22,29,22, 
29 

160 DATA21,16,240,208,112,208,11 
2,208,112 

165 DATA22,25,29,17,17,42,63,32, 
63 

170 DATA23,216,156,16,16,168,248 
,8,248,-1 

200 PRINT"{CLR}":POKE198,5:POKE6 
31,78 :POKE63 2,69 :POKE63 3,87 : 
POKE634,1 3:POKE635,131 : END 


75 IFA% = 47THENF = 80 4 3 : GOTO85 

80 IFA%=55THENF=8064:G0T085 

81 GOTOl50 

85 POKEU,15 

86 S=1:CA=8149:Q=4:FORW=1T03:POK 
ECA,Q:POKEU-2,S6:Q=Q+1:S6=S6+ 
20 

87 POKECA+C,4:NEXT:POKEU-2,0 

90 POKEU,5:RO=CA-22 :Q=-21:S6 = 201 

95 IFRO=FTHENQ=23:POKERO+21,32 
100 POKERO,3 :POKERO+C,4 :POKERO-Q 
,32 :POKEA,MA :RO=RO+Q 
110 IFPEEK(RO)=7THENRO=CA-22:M=1 
:S=0:F=0:POKE8149,4 
115 IFPEEK(RO) 032ANDPEEK (RO) 08 
THENSC=SC+5 

120 IFPEEK(RO)=90RPEEK(RO)=12THE 
NSC=SC+5:POKEU,15:POKEU-2,24 
1 :Z=Z-1: ZI=Z1+1:POKEU-2,0 
125 POKEU,5 
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130 GOSUB7000:IFZ1=QATHEN5000 
I 50 ONNGOTO1 60,200 
155 N=1:GOTO150 

1 60 IFS1=0THENDR=INT(RND(1 )*5)+8 
1 56 

170 POKEDR,9 :POKEDR+1,10 :POKEDR+ 
2,11 :N = 2 

200 POKEDK+C,5:POKEDR+1+C,5:POKE 
DR+2+C,5: IFS1«1THEN210 
205 POKEDR,12:Fii=DR-ì : S1 = 1 : Hi-H1 
+ 1 

210 POKEU-l,S 5:POKEFB,8 :POKEFB+C 
, 2:POKEFB+1,32:FB-FB-1:POKED 
R, 9 :S 5=S5-5 

215 IFPEEK(FB)=7ANDHl>ZTHENPOKEF 
B,32:POKEFB+C,0:POKEFB+1,32: 
FB=DR-1:Sl=0:Hl=0:Y=Y+l 

216 IFX50THEN218 

217 IFY= 3THENX = 8129 :GOSUB3000 

218 I FY=6'i'HEN 501 0 

220 IFPEEK(FB)=7THENPOKEFB+l ,32 : 

FB=DR-1 :N=1:Sl=0:S5=230 
225 IFPEEK(FB)= 3THENPOKEFB+1,32: 
FB=DR-1:N=1:S1=0:S5=230:H1=0 

230 IFN = 1THENPOKEDR,32:POKEDR+1 , 
32 :POKEDR+2,32 
235 GOTO20 

2000 POKEU-9,255:PRINT"{CLR}" 
2010 PRINT"{SU}( 12 SPAZI}{YEL}P 
Q{ 8 SPAZI}" 

2020 PRINT"(SU}{ 12 SPAZl}{YEL}R 
S{ 8 SPAZI}" 

2025 PRINT 

2030 PRINT"(SU}{ 12 SPAZl}{PUR}M 
N {GRN} VW{PUR}{ 5 SPAZI}" 
2035 PRINT"{SU}( 11 SPAZI}MOON 
{GRN}TU{PUR}{ 5 SPAZI}" 

2040 PRINT"{SU}{ 10 SPAZI}MOOOOO 
ON{ 4 SPAZI}" 

2045 PRINT"{SU}{ 6 SPAZI}{WHTjVW 
{PUR} MOOOOOOOON{ 3 SPAZI} 

II 

2050 PRINT”{SU}{ 4 SPAZI}MN{WHT} 
TUlPUR}MOOOOOOOOOON 
{ 2 SPAZI }" 

2055 PRINT"{SU }{ 3 SPAZIÌMOOOOOO 
OOOOOOOOOON " 

2060 PRINT"{SU}{ 2 SPAZI}MOOOOOO 
OOOOOOOOOOOON" 

2065 PRINT"{SU} MOOOOOOOOOOOOOOO 
OOOOOMOOOOOOOOOOOOOOOOOOOOO 

II 

2070 PRINT"(SU)OOOOOOOOOOOOOOOOO 

ooooooooooooooooooooooooooo 

II 

2072 ZT = 32:F0RA = 7988T081 85:POKEA 
,32 :POKEA+C,0 :NEXT 
208 5 FORA=8164T081 85 :POKEA,7 :POK 
EA+C,2 :NEXT 

2090 PO KE8142,0:POKE 814 2 +C,7 : PO K 
E8149,4:POKE8149+C,4 
2095 FORA=8129T08131 :POKEA,7 :POK 


EA+C,2 :NEXT 

2100 FORA=81 51T081 53 : Po'KEA, 7 : POK 
EA+C,2 :NEXT 

2110 M=0:N = 0:A=8148:MA=1 :S 5= 230 : 
POKEU,5:S6=201 :Z=10:Y=0:Zl = 
0 : X = 0 

2125 RETURN 

3000 POKEX,32:POKEX+C,0 :POKEX+1, 
32 :POKEX+ 1+C,0 :POKEX + 2,32 :P 
OKEX+2+C,0 :POKEX+22,7 
3010 POKEX + 22+C,2 :POKEX+23,7 :POK 
EX+23+C,2 :POKEX + 24,7 :POKEX + 
24+C, 2 -.RETURN 

5000 POKEU-1,0 :PRINT"{HOME}{RVS} 
{ 12 GIU'}{WHT}{ 3 DES} LI VE 
LLO SEGUENTE" 

5003 SC=SC+50:GOSUB7000:FORWT=1T 
07500 :NEXT 
5005 GOTO5020 

5010 POKEU,0:POKEU-1 ,0:PRINT" 

{HOME}{RVS}{ 12 GIU'}{GRN} 

{ 6 DES}FI NE GIOCO":FORWT=l 
TOl0000:NEXT:RUN 
5020 S-0:Y»0:X»0:S1-0:FB»0:GOTO5 

6000 POKEU-9,255 :PRINT"{CLR} 

{ b GIU'}{ 7 DES}{RVS}{CYN} 
CATAPULTA" 

6010 C=30720:FORA-Bl64T08185:POK 
EA,7 :POKEA+C,2 :NEXT 
6020 PRINT"{ 8 GIU'}{ 12 DES} 

{YEL}PQ(GIU'}{ 2 SIN}RS 
{ 9 DES}{ 3 GIU'}{WHT}VW 
{GIU'}{ 2 SIN)TU{HOME}" 

6030 A=8159:DR»8161:F0RZ=1T016 
6032 POKEA,1 :POKEA+C,1 :POKEDR,9: 
POKEDR+1 ,10:POKEDR+2,11 :POK 
EDR+C,5:POKEDR+1+C,5 
6034 POKEDR+2+C,5 :POKEA+1,32:POK 
EDR+3,32 :A=A- 1 :DR=DR-1 
6040 FORY =1TO250:NEXT:NEXT 
6050 POKEA + 1,21 :POKEA+1+C,1:FORW 
T=1 TOSO00 :NEXT 
6060 Z=0:Y=0:A=0:DR=0:RETURN 
7000 PRINT"{HOME}{RVS}{GRN}PUNT1 
:"SC:RETURN 


Aspettiamo 
i tuoi lavori 
migliori! 

f 
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PERSONAL COMPUTER: 
le prime, le migliori! 


PERSONAL SOFTWARE: 


L'unica che presenta 
software per tutti i personal: 
Commodore, Apple, Sinclair, T.I., 
HP, Sharp, Sega, Olivetti, ecc. 



«2L£* ova * 

•***AH» 01 n 

cp-eo ii / y 


SS** 


sornsT: 

SOL VER 


personal 

e VIDEOTEL 


PHILIPS 

SONY 


Yamaha 
SPtCTUA video 


CANON 

yashica 


Con tutta la competenza del 


i. « 

wm 


BIT: La più letta, la prima e più diffusa. 
SPECIALE MSX 

SUPERBIT - 80 pagine di programmi 
per i vostri personal computer. 









Poke 2360,0 

e POKE 23607,60 ripristinano in ogni momen¬ 
to l'alfabeto standard dello Spectrum. 
Provate a modificare a piacere i valori 0 e 60, 

e . divertitevi. Ricordatevi che per tornare alla 

normalità, qualunque cosa vediate sul video, 
dovete digitare quanto sopra scritto. 

Nero e crudele 

Se siete curiosi, potete digitare POKE 
23659,0.... ricordatevi però che, dopo, potre¬ 
te solo spegnere e riaccendere lo Spectrum! 


La locazione 23693. 

...seleziona tutte le combinazioni di INK, PA¬ 
PER E FLASH. Per tornare a INK o e PAPER 
1, basterà digitare POKE 23693,56. 

Inverse inverso 

Come fare a inserire (c togliere) velocemente 
rINVERSE VIDEO? POKE 23697,0 lo toghe; PO 
KE 23697,8 lo inserisce. 


Per ricevere gli arretrati di 


Z&'/j'J compilare il seguente tagliando: 



Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 

Indirizzo 


CAP _ Città _ Prov. _ 

Desidero ricevere i seguenti numeri arretrati di 

àyh - Anno - 

✓ 

a L. 2.000 cad. per un totale di L. a mezzo 


□ assegno allegato □ contanti allegati 
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A Milano, 

in via Mascheroni 14. 
la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 




